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The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties, 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in e\/ery issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least e\tery second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 



** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 

it, except for your own use. 

programs on tape or disk. 



This applies to photocopying the magazine itself or making copies of 



** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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*** SPECIAL OFFER TO NEW READERS AND READERS RENEWING THEIR SUBSCRIPTION *** 
*** SOFTWARE LIBRARY, VALUED AT OVER $100 -FREE !!!*** 



MICRO— 80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews his sub- 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. AM programs will also operate on the Model III. 



Level I in Level II 

Convert your Level II TRS— 80 or System 80 to operate as a 
Level I machine. Opens a whole new library of software for your 
use. 

Copier 

Copies Level II System tapes, irrespective of where they load in 
memory. Copes with multiple ORG programs. 

Z80 MOM 

A low memory, machine language monitor which enables you to 
insert OP codes, edit memory, punch system tapes etc.. 

Cube 

An ingenious representation of the popular Rubicks cube game 
for Disk users. 



Poker 

Play poker against your computer, complete with realistic graphics. 



Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs removed 
and easier data entry. This program is powerful enough to be 
used by a small business. 



80 Composer 

A music generating program which enables you to play music via 
your cassette cord and to save the music data to tape. This is an 
improved version of the program published in Issue 17 of Micro- 
80. 
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***** EDITORIAL ***** 

Despite the promises, very few of the new colour computers have actually been seen in the shops 
yet. Commodore with its VIC-20 and Tandy with the TRS-80 Colour Computer, are both resigned 
to missing the Christmas rush but it does seem that these computers will actually be available 
in February, 1982. 

So, with Tandy at long last about to have a colour computer, what of the Dick Smith organisation? 
Whilst there have been rumours of colour add-ons for the System 80/Video Genie, there have been 
no suggestions that the manufacturers of the Video Genie actually have a colour computer on 
the way. So, Dick Smith has solved his problem himself and will shortly be competing with Tandy 
in offering colour computers. How has he done it? DICK SMITH ELECTRONICS WILL SHORTLY BE SELLING 
THE VIC-20 BY COMMODORE. It will be a fascinating battle to see which computer gains the most 
customers. The VIC-20 in its most basic form wins over the TRS-80 Colour on price - $399 versus 
$599, but before a judgement can be made, it is necessary to compare the prices for equipment 
of similar performance (both systems have a wide range of add-ons and expansion units). That 
we wi 1 1 do for you i n the next few i ssues . Next month we wi 1 1 have a detai 1 ed revi ew of the 
TRS-80 Colour Computer, based on hands-on experience of a reader who imported his own several 
months ago, and our own impressions of an expanded BASIC machine loaned to us by Tandy. We 
will follow that in a later issue with a comparative review of the VIC-20. We will also look 
at one of the newest offerings, the Hitachi Peach. There are exciting times ahead for those 
contemplating the purchase/replacement of a computer, and we will do our part in keeping you 
i nf ormed . 

This issue marks the completion of two years of publication for MICRO-80. The next 12 months 
promise to be even more exciting in microcomputing than the past. We intend to rise to the 
challenge in a number of ways. We will expand our coverage of the familiar computers and, in 
particular, will give increased support to the Model III. Not only will the magazine carry 
a lot of hitherto unpublished information about the internals of the Model III, but Eddy Paay 
is putting the finishing touches to his Model III ROM Reference Manual and a great Debug utility 
program for the Model III. Many more of our readers now operate disk systems so we will include 
much more information and programs for disk users. Then there are the colour computers. It 
is our intention to support the TRS-80 Colour Computer, at least. This will not be done at 
the expense of the space given to the TRS-80 Models I and III and the System 80, rather we will 
increase the size of the magazine to accommodate the extra material. 

NEW PROGRAM LIBRARY AVAILABLE FREE TO MICRO-80 SUBSCRIBERS. 

We have developed a new program library of excellent quality and worth over $100 at retail value. 
The seven new programs on cassette or disk, together with a comprehensive and informative manual, 
will be sent free of charge to all new subscribers and to those who renew their subscription 
from Issue 25 (December, 1981) onwards. Further details of the programs contained in our new 
software library will be published shortly. 

INFLATION STRIKES (BUT JUST A LITTLE). 

The price for a 12 months' subscription to MICRO-80 has remained unchanged since we commenced 
publication 2 years ago. During that time, the Consumer Price Index in Australia has increased 
by more than 20%. Commencing next issue, the price of a subscription to MICRO-80 magazine will 
increase to $26, a Cassette subscription to $65 and a Disk subscription to $125. These increases 
are wery much less than the inflation rate and the increased revenue will assist us to improve 
the quality of your magazine still further. 

DIGITAL COMMUNICATIONS COMING TO AUSTRALIAN MICRO-USERS. 

One of the more exciting uses for a microcomputer is to use it as a communications medium, i.e. 
for one microcomputer to communicate with another several kilometers distant. Many of our readers 
have already tried sending programs over the telephone line by connecting amplifiers to the 
cassette port, we know. This is an unsophisticated version of an acoustic coupler which is 
widely used for transmitting digital information between commercial computers. 

One method of implementing automatic data processing in a business is to use a time-sharing 
bureau via a dial-up line. Turning that jargon into some semblance of English, we find that 
an alternative to installing your own computer is to buy a terminal and printer and connect 
to a 1 arge computer vi a an ordi nary tel ephone 1 i ne . The 1 arge computer runs your programs i n 
response to commands from the terminal and you can produce listings, reports, etc. on your printer. 
The large computer is shared by many other users which keeps the cost to each user down to an 
acceptable level . These computers are owned by companies cal led bureaus. The volume of data 
being transferred around the world at any one time is large and growing and is significant with 
respect to the amount of voice traffic handled by telephone lines. Many bureaus have computers 
in only one or two locations in the country and users' data is transferred by long distance 
telephone lines (usually high speed lines). In the extreme, the computer you are using might 
actually be on the other side of the world and your data is beamed around the globe via a satellite. 

All of the above is happening now and is expensive. One of the problems that bureaus have is 
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that most businesses want to process data during normal working hours, so large (expensive) 
computers and peripherals need to be installed to cope with peak traffic whilst, for at least 
hal f the time , these machi nes are very much under-uti 1 i sed . Even attracti ve , 1 ow, off-peak 
rates fail to keep them fully utilised since it is usually prohibitively expensive for their 
customers to bring in staff at night to process data. 

About 18 months ago, an enterprising bureau in the U.S.A. had a bright idea. What if they reduced 
their off-peak rates way, way down, put some useful BASIC programs on their computers and sold 
off-peak time to personal computer users, most of whom were working for their employees in peak 
times anyway? Thus was born Micronet. Others were quick to follow. Electronic mail systems 
and bulletin boards abound. These are systems whereby computer owners across the country 
communicate with each other via the telephone lines and leave messages on disks driven from 
the host computer. 

Some more enterpri si ng soul s amongst the Austral i an mi crocomputi ng f raterni ty have joi ned thei r 
American colleagues by using the MIDAS link provided by the Overseas Telecommunication Company 
(OTC). Unfortunately, this can be very expensive indeed, possibly costing as much as $50-$60 
per hour, depending upon the amount of data transferred through the link. Help is at hand, 
however. An Australian microcomputer network has now been announced, called the AUSTRALIAN 
SOURCE, (no doubt after one of the most successful similar U.S. organisations, the SOURCE but, 
we understand, there is no direct relationship between the two). The AUSTRALIAN SOURCE will 
commence operations in Melbourne early in 1982. Thereafter, it will become available in Sydney 
about 30 days later then Brisbane, Perth and Adelaide in that order so that, by about the middle 
of 1982, users in all major capital cities will be able to link up with the AUSTRALIAN SOURCE 
via a local telephone call. 

There is an initial fee of $100 to become an AUSTRALIAN SOURCE subscriber but founder subscriptions 
taken out prior to 1st February, 1982 can be had for only $60. Thereafter, users pay $10 per 
hour in peak time (8 a.m. - 6 p.m.) and $4.50 per hour in off-peak time (6 p.m. - 8 a.m.). 
MICRO-80 is very excited about the possibilities which this new venture opens to microcomputer 
owners. We will support the AUSTRALIAN SOURCE will articles explaining how to adapt your equipment 
to communicate with the SOURCE and membership of the SOURCE is available from our mail order 
department. In fact, we have reserved a number of charter memberships for our readers and we 
have also taken the unusual step (for us) of accepting an advertisement in our columns for the 
AUSTRALIAN SOURCE which gives you further information about this service (see back cover). 

As we said above , we wi 1 1 discuss the equi pment requi rements i n more detai 1 i n a future i ssue. 
The minimum requirement, however, will be a duplex serial port able to operate at 300 baud and 
an acoustic coupler. At present an '80 user would require an expansion interface to meet the 
requirement for a serial port. We are looking at a cheaper alternative for those without expansion 
interfaces - more news in later issues. 



- 0000000000 - 
***** JOYSTICKS AND INPUT/OUTPUT PORTS FOR YOUR '80 



by Alan Dent 



PART 4 - SOFTWARE DRIVERS 

In this concluding part we will look at several driver programs to enable you to use both the 
joysti cks and i nput/output ports . We had al so i ntended to i ncl ude f ul 1 -si zed masters for the 
PC board in this part. However, one or two tracks need to be added/changed and we have held 
over publication until the revised artwork is available (hopefully next issue). We will also 
announce the price of the PC board itself, in that issue. 



Last month we included two circuit diagrams on Page 12, without comment. These were for a port 
output monitor and a port input switch. The output monitor enables you to visually detect the 
status of each bit of an output port. Any bit having a value of 1 will cause its LED to be 
"ON". A LED will be off when its corresponding bit has a value of 0. The port input switch 
enables you to set up any desired bit pattern on an input port. You may like to check the oper- 
ation of your ports by writing a simple program to transfer the byte on the port input switch 
to an output port. Each bit that is "ON" at the input should also be "ON" at the output. 

Finally, the diagram below shows the buss connector numbering for the socket into which the 
ribbon cable to the TRS-80 keyboard, is plugged. 
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The f i rst 1 i sti ng bel ow contai ns three simpl e demonstrati on programs whi ch enabl e you to move 
a dot around the screen, draw lines etc., using the joysticks. The first joystick program simply 
inputs the digital value of the voltage at the joystick moving arms. This is then processed 
to conform to the constraints of the level 2 X,Y maximums of 127,47 respectively. The graphic 
point location is then SET and RESET to flash the position of the joystick controlled graphic 
poi nt . The 8 bit val ues of the two i nputs are al so di spl ayed i n decimal at the bottom 1 eft 
corner of the screen. The next program, accessed by RUN 100, is similar but does not RESET 
and hence draws a continuous line as the joystick is moved. The third joystick program, RUN 
200, combines the actions of both of the preceding programs. You can draw lines with the addition 
that if the space bar is pressed, the spot can be moved while flashing but not drawing, to a 
different location, ready to start drawing again. This one is a good one for young kids to 
play with. 

5 REM *** THIS PROGRAM MOVES A SPOT AROUND THE SCREEN 

LINE 10 CLEARS THE SCREEN 

LINE 20 INTEGERS ARE FASTER 

LINE 30 FETCHES JOYSTICKS DIGITAL VALUE F 

6 REM LINE 40 TURNS OFF THE GRAPHIC POINT 

LINE 50 LIMITS "X" TO 127 

LINE 60 LIMITS "Y" TO 47 

LINE 70 TURNS ON GRAPHIC POINT 

LINE 80 PRINTS JOYSTICK DIGITAL VALUE 

LINE 90 LOOPS BACK TO FETCH NEW VALUES 
lO CLS 

20 DEFINT A-Z 
30 A=INP(0) : B=INP(1) 
40 RESET (X,Y) 
50 X=A/2 

60 Y=B/5 : IF Y>47 THEN Y=47 
70 SET(X,Y) 

80 PRINT3960,"X=";A; " ,, ,"Y= ,, ;B; " " ; 
90 G0T030 

95 REM tttttttttttt*ttt*tt*tttt*t*t*tttttttt*tt**tt**tttt*t 
100 REM THIS PROGRAMME DRAWS LINES ON SCREEN WITH JOYSTICKS 
105 CLS 

110 DEFINT A-Z 
120 A=INP(0) 
130 B=INP(1> 
140 X=A/2 

150 Y=B/5 : IF Y>47 THEN Y=47 
160 PRINTS^O^'X^'jA;" ","Y=";B;" " ; 
170 SET (X,Y) 
180 SOTO 120 

190 REM **»******M****t***********t*t**t*****t*******t*t 
200 REM THIS PROGRAMME DRAWS LINES ON THE SCREEN OR MOVES 

A SPOT AROUND THE SCREEN IF THE SPACE BAR IS PRESSED 
205 CLS 

210 X=INP(0)/2 : Y=INP(l)/5 5 IF Y>47 THEN Y=47 
220 SET(X,Y) 

230 IF PEEK (14400) =128 THEN RESET <X,Y) * TEST FOR SPACE BAR 
240 GOTO 210 

290 REM ttttt*tttt**t*t*ttt*t*ttttt**ttttttttttttt**ttt*tt*ttt 
300 REM THIS PROGRAMME SETS THE "PPI" TO PORT 8 IN, 9 & 10 OUT 

READS THE SWITCHES AT THE INPUT TO PORT 8, PRINTS 

THE DECIMAL AND HEX VALUE TO THE SCREEN AND OUTPUTS 

THE VALUE TO PORT 9 
305 CLS : PRINTCHR* (23) : OUT (11), 152 
310 X=INP(8) 
320 PRINT3530,X;" 

325 REM LINES 330/340 CONVERT THE DECIMAL VALUE TO HEX 
330 A=INT(X/16>: IFA<10 THEN A*=CHR* (A+48) ELSE A*=CHR* (A+55) 
340 B=X-A*16 : IF B<10 THEN B*=CHR* (B+48) ELSE B*=CHR* (B+55) 
350 C*=A*+B$ 
360 PR I NT3550 , C* ; " ° 
370 OUT (9) , X 
380 GOTO 310 

390 REM tt*ttt****t*t****tttttt*t**ttt***t*tt*t*tt*tttttt***tt 
400 ' THIS PROGRAMME SCANS THE KEYBOARD AND OUTPUTS THE ASCII 

VALUE TO THE LED DISPLAY AT PORT 9- 

IT ALSO READS THE SWITCHES AT THE INPUT TO PORT 8 AND 

DISPLAYS THE COMPUTER CODE IT REPRESENTS ON THE SCREEN 
405 CLS : PRINTCHR* (23) : OUT (11), 152 
410 A*=INKEY* : IFA*= ,,M THEN 440 
420 X=ASC(A*) 
430 OUT (9) ,X 
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440 X=INP(8) 

450 IF X=Y THEN 410 ELSE Y=X 

460 IF X>191 THEN X*=" SPACE COMPRESSION CODE' 

E "+CHR*(X) ELSE IF X>31 THEN X*="CHARACTER 

470 CLS:PRINTCHR*(23) 

480 PRINT5>0,X* 

490 GOTO 410 



ELSE IF X>127 THEN X*= M GRAPHIC COD 
"+CHR*<X> ELSE X*=" CONTROL CODE" 



We now move on to the parallel I/O ports. At RUN 300 we first program the PPI at address location 
8-11 by writing the control word decimal 152 to port 11, the control register location. Port 
8 is then read to input the value of the switches connected to it. The decimal value and the 
HEX value is displayed on the screen and then written to port 9 to switch on the LED display 
being controlled by that port. The next program starting at 400, scans the keyboard and outputs 
the ASCII value to the LED's at port 9. It then reads the switches at the input to port 8 and 
prints on the screen the computer code that the switches represent. Rod Stevenson has written 
a machine language program which also allows you to draw pictures on the screen under joystick 
control. It is more elegant than mine as my speciality is in hardware and Rod has demonstrated 
his software ability with his series "BETTER BASIC PROGRAMMING". Rod's program is also included 
in the program listings in two versions. One is an EDTASM source listing, the other is poked 
in from a BASIC program. 



7F00 
7F00 
7F03 
7F04 
7F07 
7FOA 
7FOC 
7F0E 
7F11 
7F14 
7F16 
7F19 
7F1C 
7F1E 
7F20 
7F22 
7F24 
7F26 
7F28 
7F2A 
7F2C 
7F2D 
7F2F 
7F31 
7F32 
7F34 
7F36 
7F38 
7F39 
7F3B 
7F3D 
7F3E 
7F41 
7F42 
7F43 
7F44 
7F46 
7F49 
7F4B 
7F4C 
7F4D 



CD7F0A 

7D 

32647F 

CD5B03 

FE1B 

2006 

2A657F 

C39A0A 

FE1F 

CCC901 

21647F 

FE4C 

2002 

365A 

FE44 

2002 

3664 

DB01 

06FF 

04 

D605 

30FB 

78 

FE2F 

3802 

3E2F 

6F 

DBOO 

CB3F 

67 

22657F 

44 

7D 

E5 

26B0 

CD4B7F 

1808 

E5 

C5 

218C18 



OOIOO 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
002O0 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
0O4OO 
004 1 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 



WRITTEN 29/9/81 BY ROD STEVENSON TO USE JOYSTICK KIT 
DEVELOPED BY ALLAN DENT FOR ADELAIDE USERS' GROUP. 

L-KEY WILL DRAW LINE (DISABLES RESET) 

D-KEY WILL MAKE DOT (TO ENABLE CURSOR TO BE MOVED) 

SHIFT UP ARROW RETURNS TO BASIC 

CLEAR-KEY WILL CLEAR SCREEN. 

MAY BE RELOCATED BY CHANGING ORG STATEMENT 

THERE IS A VERSION CONVERTED TO BASIC POKE STATEMENTS. 



30 USRVAL 



INKEY 
RETN 



CLS 
LINE 

DOT 

YCOORD 
DIVD5 

BR47 



NGR47 
X COORD 



ROM 



GRAF IX 



ORG 

CALL 

LD 

LD 

CALL 

CP 

JR 

LD 

JP 

CP 

CALL 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

IN 

LD 

INC 

SUB 

JR 

LD 

CP 

JR 

LD 

LD 

IN 

SRL 

LD 

LD 

LD 

LD 

PUSH 

LD 

CALL 

JR 

PUSH 

PUSH 

LD 



;GET VALUE FROM USR(O) 



32512 

0A7FH 

A,L 

(VALUE) , A; SAVE VALUE FOR LATER 

35BH ; INKEY ROUTINE 

OIBH ;TEST IF SHIFT UP ARROW 

NZ.CLS ; IGNORE IF NOT 

HL, (COORD) ; COORDS TO BASIC 

OA9AH ;BACK TO BASIC 

OlFH ;TEST IF CLEAR PRESSED 

Z,1C9H ;CLS ROUTINE 

HL, VALUE; CHECK IF L PRESSED 

*L* 

NZ,DOT ; IGNORE IF NOT 

(HL) ,90 

*D' ; CHECK IF D PRESSED 

NZ, YCOORD; IGNORE IF NOT 

(HL) , lOO 

;GET Y VALUE 

;USE B AS COUNTER FOR DIVIDE 

[DIVIDE Y COORD BY 5 



A, (1) 

B,OFFH 

B 

5 

NC,DIVD= 

A,B 

47 

CNGR47 

A, 47 

L,A 

A, <0) 

A 

H 5 A 



B,H 

A,L 

HL 

H,80H 

GRAF IX 

RESET 

HL 

BC 

HL, 188CH 



SUBTRACT TILL <=0 
ANSWER INTO A TO 
CHECK IF >47 
IGNORE IF NOT 
IF > 47 LET = 47 
L HAS Y COORD. 
GET X VALUE 
DIVIDE BY 2 
H HAS X COORD. 



(COORD) ,HL; SAVE COORDS FOR BASIC 



PREPARE FOR ROM ROUTINE 

SAVE LOCATION FOR RESET 
SET FLAG FOR ROUTINE 
;ROM ROUTINE 
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7F50 


C35001 


00630 




JP 


150H 


7F53 


El 


00640 


RESET 


POP 


HL ; 


7F54 


3A647F 


00650 




LD 


A, (VALUE) 


7F57 


FE64 


00660 




CP 


100 ; 


7F59 


20AC 


00670 




JR 


NZ, INKEY; 


7F5B 


44 


00680 




LD 


B,H ; 


7F5C 


7D 


00690 




LD 


A,L 


7F5D 


2601 


00700 




LD 


H,Oi - 


7F5F 


CD4B7F 


00710 




CALL 


BRAFIX ; 


7F62 


18A3 


00720 




JR 


INKEY 


7F64 


OO 


00730 


VALUE 


DEFB 


00 ; 


7F65 


OOOO 


00740 


COORD 


DEFW 


OO ; 


7FOO 




00750 




END 


USRVAL 
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GET LOCATION 

; VALUE OF USR(O) 

CHECK IF RESET REQUIRED 

RESET IF FLAB lOO 

PREPARE FOR ROM ROUTINE 

RESET FLAG FOR ROUTINE 
ROM ROUTINE 

SPACE FOR USR<0) VALUE 
SPACE FOR COORDS. 



20 POKE 16526, 3251 2AND255: POKE! 6527, INT (3251 2/256 ) : CLEAR50 : P0KE1 6 
561,32512AND255:P0KE16562,INT(32512/256) 'FIRST SET PASSES 

LOCATION TO USR(O), SECOND SET PROTECTS MEMORY. CHANGE THESE IF 
YOU RE-ASSEMBLE ROUTINE IN A DIFFERENT MEMORY LOCATION. 
30 CLS:PRINT@448,"THIS ROUTINE ACCEPTS INPUT FROM THE JOYSTICK D 
EVELOPED BY THE ADELAIDE USERS' GROUP. IT REMAINS IN M/L UNTIL 
SHIFT-UP ARROW ISPRESSED. CLEAR-KEY WILL CLS. L-KEY WILL DRAW A 
LINE (DISABLE RESET). D-KEY WILL DRAW A DOT (ENABLE RESET)." 

40 F0RI=3251 2T03261 5 : READD : POKEI , D : NEXT 

50 DATA205, 127, 10, 125, 50, 100 J 27, 205, 91 ,3,254,27,32,6,42,101,127 
,195,154,10,254,31,204,201,1,33,100,127,254,76,32,2,54,90,254,68 
,32,2,54,100,219,1,6,255,4,214,5,48,251,120,254,47,56,2,62,47,11 
1,219,0,203,63,103,34,101,127,68,125 

60 DATA229, 38, 128, 205, 75, 127, 24, 8, 229, 197, 33, 140, 24, 195, 80, 1,225 
,58,100,127,254,100,32: 'TO RESET UNLESS 100 IS PASSED, CHANGE 
THIS LAST DATA ITEM (NOW 32) TO 40. HOWEVER, THIS WILL ALSO REVE 
RSE D AND L, SO D=L AND L=D 

70 DATA172, 68, 125, 38, 1,205, 75, 127, 24, 163: 'TO CHANGE ROUTINE SO 
IT DOES ONLY ONE LOOP, CHANGE FIRST DATA ITEM IN THIS LINE TO 1 

79 (NOW 172) AND LAST ONE IN THIS LINE TO 170 (NOW 163). CAN STI 
LL USE VALUE OF 100 TO SPECIFY A LINE OR DOT. 

80 DATAO, 0,0,0 
90 PRINT024," 
100 PRINT0O,; 

110 INPUT"INPUT 100 FOR DOT ONLY";A 

120 X=USR(A) 

130 PRINTC°970,"X COORD =" ; INT(X/256) ,"Y COORD =";XAND255; 

140 G0T090 



I hope that these simple demonstration programs will convince you that the unit is very easy 
to program and use. If anybody develops a good program using this board, send it to MICRO-80 
for their evaluation - you may even work out a way to modify existing games programs to use 
the joysticks instead of the keyboard. We at the Adelaide Users' Group plan to develop other 
circuits which use this board as the main interface to the computer. Any that I design will 
probably be offered to MICRO-80 to publish if they feel it is "what the people want". We have 
a few ideas at the moment but any suggestions would be welcome. I may be contacted through 
the Users' Group address or MICRO-80 will pass on any readers' requests that they receive. 
I hope that those of you who construct this board get as much fun and use out of it as I have 
in the short time that it has been finished. I'm sure that hardware buffs will love it. 

- 0000000000 - 
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***** THE THEORY AND TECHNIQUES OF SORTING - Part 2 



by B. Simson ***** 



Last month we considered a simple algorithm for sorting some numbers in memory using a technique 
of sorting by transposition or exchange, known as the bubble sort. However, if you ran the 
program LISTed there for a large number of digits {say 100 numbers) then you would have realised 
the considerable length of time it took to sort them. This is because in a bubble sort, the 
time taken is related to the square of the number of items being sorted (N^). Such a relationship 
means that the al gori thm i s not sui ted for 1 arge numbers and i s commonly 1 imi ted to sorti ng 
lists of about 15 items. We could increase the efficiency somewhat by employing a technique 
known as "MERGING" substrings of sorted data, along with the bubble sort. 

Sorting often involves a trade-off between several resources, say memory and time. Some sorting 
algorithms are fast, but at the expense of using a large portion of memory in the process, depending 
on the application. Here, we shall consider a trade-off between actual sorting time, and time 
spent merging sorted substrings (subsets). 




Designations change after 



every merge phase 



Figure 1. Merging extracted subsets of the input array. 



Figure 1 explains the workings of the algorithm. We have the input array from which a subset 
of numbers of selected quantity is extracted serially and placed in the sort area, where the 
bubble sort processes them to produce a sorted list. This list is then merged with either array 
B or array C, depending on which one has been designated the array to be merged. Array B and 
C alternate in this designation, i.e. if B was the array to be merged in the last merge phase, 
then C will be merged with the sort area in this merge phase. The output of each merge phase 
is put into either B or C array, depending on which was used as output in the last merge phase. 
B and C also alternate in this function. So, in the first merge phase, a subset is extracted 
from the input array and sorted, then merged with array B (which is empty in the first phase) 
to produce a sorted list in array C. Next, another subset is extracted and merged with array 
C to produce a sorted list in array B this time. This continues until all items have been extracted 
from the input array, after which the array used as the output in the last merge phase is deter- 
mined, it being the final list of sorted data. 



Time 




Subset 
length 



Optimum 
Subset length 



Subset length 
= input array 



Figure 2. Optimizing merging time with sorting time. 
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Now it is plain that the larger the sort area, the longer it will take to actually sort (bubble), 
but also, the larger the sort area, the fewer extractions of subsets are made from the input 
array, therefore invoking fewer merge phases, and consequently less time is spent in merging. 
This is illustrated in Figure 2. 

So a trade-off must be made, which is achieved by optimizing the subset length {therefore the 
sort area). The complete program employing this technique follows. An additional feature is 
an option to sort in descending order: 

760 CLEAR1:CLS:DEFINTA,B,C, I:PRINT5>15, "** BUBBLE SORT /MERGE **": PRINT 

780 INPUT"SORT HOW MANY NO' S" ; N: DIMI <N) ? B (N) , C (N) 

800 RANDOM: INPUT "RANGE (-32767 TO 32767) FROM" ; RI : PRINTTAB <26) ; : INPUT"TO" ; R2: IFR 

2<=R1GOTOSOO 

820 F0RT7,= 1T0N: I (TX> =RNB (R2-R1 ) +R1 : NEXT: T=T% 

840 SL=INT(SQR(N*2) >+l: IFSL>NTHENSL=N: REM DETERMINE OPTIMUM 

SUBSET LENGTH. 

860 DIMA(SL): REM A IS THE SORT AREA DESCRIBED ABOVE. 

830 AD$=" ": INPUT" ASCENDING OR DESC. ( A/D) " ; AD*: IFAD*="A"60TQ920 

900 IFAD*<>"D"PRINT" HUH ???" : G0T0880 

920 PRINT". . .SORTING. . . " :FC=1 

940 REM EXTRACT SUBSET FROM INPUT ARRAY 

960 FORT= 1 TOSL : A ( T > = I ( FC ) : FC-FC+ 1 

980 I FFC >NTHENT=T+ 1 : GOTO 1 020 

1000 NEXT 

1020 G0SUB1740:T=N3+2 

1040 ' ** MERGE ROUTINE ** 

1060 7 CA,CB,CC ARE ELEM COUNTERS A,B,C 

1080 CA=1:CB=1:CC=1 

1100 IFAD*="D'*GOT01480 

1120 IFB1=1 GOTO 1320 

1140 ? TEST FOR EOF FOR EITHER ARRAY 

1160 IFCB>S1FORL=CATQT-1:C(CO=A(L) : CC=CC+1 : NEXT: G0T01240 

1180 IFCA=TF0RL=CBT0S1:C(CC)=B(L> ; CC=CC+1 : NEXT: G0T01240 

1200 IFA(CA) <B(CB)C(CC)=A(CA) : CA=CA+1ELSEC (CO =B (CB) :CB=CB+1 

1220 CC=CC+1:G0T01160 

1240 B1=1:S1=CC-1bG0T01380 * MERGE COMPLETE, CHANGE MERGE ARRAY, SET EOF 

1260 * ARRAY C IS MERGE ARRAY 

1280 IFCC>S1FQRL=CATQT-1:B<CB)=A(L> : CB=CB+1 : NEXT: G0TO136O 

1300 IFCA=TFORL-CCTOSI:B(CB>=C(L> : CB=CB+1 : NEXT: GOT01 360 

1320 IFA(CAXC<CC)B(CB)=A<CA> : CA=CA+1ELSEB (CB) =C (CO sCC=CC+l 

1340 CB=CB+1: GOTO 1280 

1360 B1=0:S1=CB-1 

1380 M=M+ls IFFC<=NG0T0960 

1400 REM PRINT SORTED DATA 

1420 FORT=lTOSl: IFBI=OPRINTB (T> ; EL3EPRINTC (T> ; 

1440 NEXT: PRINT: PRINT" SUBSET LENTH: "; SL: PRINT" NO OF MERGES: " ; M: END 

1460 ' DESCENDING SEQ. 

1480 IFB1=1G0T01640 

1500 IFCB>S1FORL=CATQT-1:C(CO=A(L> s CC=CC+1 : NEXT: GOTO 1580 

1520 IFCA=TFORL=CBTOSl:C(CC)=B(L> : CC=CC+1 : NEXT: G0T01580 

1540 IFA(CA) >B<CB)C(CC)=A(CA> : CA=CA+1ELSEC (CO =B (CB) :CB=CB+1 

1 560 CC=CC+ 1 : GOTO 1 500 

1580 Bl=isSl=CC-l:S0T01380 

1600 IFCOS1FORL=CATOT-1:B(CB)=A(L) : CB=CB+1 : NEXT: G0T01 680 

1620 IFCA=TFORL=CCTOSl:B<CB>=C(L) : CB=CB+1 : NEXT: GOTO 1680 

1640 IFA(CA) >C<CC)B<CB>=A(CA> : CA=CA+1ELSEB (CB) =C (CO :CC-CC+1 

1660 CB=CB+1:G0T0I600 

1 680 B 1 =0 : S 1 =CB- 1 : GOTO 1 380 

1700 * ** SORT ROUTINE ** 

1720 ? T=SUBSET LEN. +1,N=LEN. OF INPUT SUBSET, 

I 740 T=T- 1 : N3=T- 1 : FORN 1 %= 1 TON3 : N4=0 

1760 FORN2Z=lTO<T-l> : IFAD*^ M D"G0T01860 

1 780 I FA ( N27. ) < =A ( N27.+ 1 > GOTO 1 820 

1800 A1=A<N27.) :A<N2'/.)=A(N27.+ 1) : A (N27.+ 1 ) =A1 : N4=l 

1820 NEXT: IFN4=0RETURN 

1B40 T=T-1: NEXT: RETURN 

I860 IFACN27.) >=A (N27.+ 1 ) GOTO182OELSEG0T018OO 



The program di spl ays the 1 ength of each subset used for extracti on and sorti ng , and the number 
of merges involved in the whole process. 

By using merging techniques with the bubble sort, an increase in efficiency of 270% was obtained, 
based on an input list size of 100 items. That is:- 
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100 items with straight bubble 130 seconds 

100 items with bubble sort/merge ... 48 seconds*. 

It can be seen that merging techniques strip a considerable amount of time off the entire process. 
In fact, merging is such an efficient technique that an entire sorting algorithm, known as the 
merge sort, is based on merging principles. 

We shall leave the bubble sort algorithm here, and consider some other sorting techniques of 
varying efficiencies. Last month I finished off by saying that the next article will consider 
techniques of sorting "by insertion". However, this will be postponed and instead, another 
simple sorting routine will be presented, this time involving a technique of sorting "by selection". 
This algorithm involves a search of elements in an array to locate the one with the smallest 
value (or "key"). When found, it is exchanged with the first element in the array. This places 
the element with the smallest key in the first position in the array. This process is repeated 
for the remai ni ng el ements to sel ect what wi 1 1 become the second smal 1 est val ue whi ch is i nter- 
changed with the second element in the array. The process of searching for the element with 
the next smallest value and placing it in its proper position (by exchanging elements) continues 
until all elements have been sorted. This is known as the selection sort, the program for which 
appears below: 

21 lO REM N=NO OF ELEMENTS TO BE SORTED 

2120 REM MIN=MINIMUM FOUND SO FAR 

2130 REM P=POINTER TO MIN 

2140 REM I=PASS COUNTER 

2150 REM T=TEMPORARY VARIABLE USED FOR EXCHANGING 

21&0 REM 

2170 IF N<2 THEN 2250 

2180 FOR 1=1 TO (N-l) 

2190 MIN=A(I):P=I 'SET MINIMUM BEFORE SEARCH 

2200 FOR J=<I+1) TO N 'START FROM WHERE YOU ARE 

2210 IF A(JXMIN THEN MIN=A(J>:P=J 'FOUND A LOWER ONE 

2220 NEXT J 

2230 IF POI THEN T=A < I > : A < I ) =A <P) : A <P) =T 'EXCHANGE 

2240 NEXT I 

2250 RETURN 

2260 <END OF PROGRAMS 

2270 * 

2280 'HERE FOLLOWS THE DRIVER, WHICH BUILDS THE INPUT ARRAY, 

2290 'DISPLAYS THE DATA, CALLS THE SORT, AND DISPLAYS THE 

2300 'SORTED RESULTS. 

Here follows the driver, which builds the input array, displays the data, calls the sort, and 
displays the sorted results. 

2320 INPUT "HOW MANY NUMBERS" ;N 

2330 CLS: DIM A(N): RANDOM 

2340 FOR 1=1 TO N 

2350 A(I)=RND(1000) :PRINTA(I> ; 

2360 NEXT Is PRINT 

2370 INPUT n HIT ENTER TO START"; I 

2380 GOSUB 2170 

2390 FOR 1=1 TO N 

2400 PRINTA(I) ; 

2410 NEXT I 

2420 END 

To further explain the functions of this algorithm, consider the trace of the first pass. 

Assume array before sort is: 12, 18, 15, 6, 13. 

MIN CONSIDER ING... POSITION OF MIN 

12 18 1 

12 15 1 

12 6 (Moved to min) 4 (updated) 

6 13 4 

Now, since the position of the minimum has changed from that at the start of the pass, an exchange 
is performed between the 1st and 4th items, so that the data after the first pass looks like 
this: 

6, 18, 15, 12, 13. 
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The second pass will commence searching data from the second item onwards (i.e. 18) since position 
1 is occupied by the smallest value in the array, and hence is its final position. 

The ef f i ci ency of the sel ect i on sort is also of order ( N ) . A 1 ater arti cl e wi 1 1 exami ne the 
efficiency and compare it, by mathematical analysis, with other sorting routines. 

This means that the selection sort is also limited to small (15-20) input table sizes to obtain 
any reasonable response times. However, it may be more efficient than the bubble sort if imple- 
mented, using the machine' s instruction set, on a machine having firmware available to find 
the smallest element in a list at high speed. 

TO SUMMARIZE... 

It was di scovered that sorti ng routi nes 1 i ke the bubble sort are not ef f i ci ent for 1 arge 1 i st 
sizes. The time taken is proportional to N^. The efficiency of such sorts can be improved somewhat 
by employing the technique of merging, which involves a trade-off of some kind. Another simple 
sorting routine is available, based on the principle of straight selection and known as the 
selection sort. 

Next month we shall be looking at yet another technique of sorting, that of sorting "by insertion" 
along with some of its variations. 

- 0000000000 - 



* * * * 



SOFTWARE SECTION 



***** TIC TAC TOE - Level I TRS-80 by B. Smith ***** 

If you are like me, the first computer game I ever wanted to play on owning a computer was TIC 
TAC TOE (noughts and crosses). So I purchased a Tandy's game pack that had a program called 
random TIC TAC TOE. This game to me was a let-down because firstly, it was slow and secondly, 
at every input it altered the location of the 'X's and '0's around the board. Very confusing! 

So I developed this game which is fast and 'thinks' its next move. Remember, it will win first 
before blocking your move. It should keep you on your toes. The computer always plays the 
noughts and the human opponent the X's. 

Lines 6-11 draw the grid and number the squares. 

Lines 13-250 allow the human player to choose the position for his next X, checks input 

for validity then places the 'X' in a valid position. 
Lines 260-274 redraw previous positions of 'X* and '0' after every new input. 
Lines 280-295 computer's move. 

Lines 399-418 test for the presence of a winning combination. 
Lines 580-622 test for two X's in a line so that computer may block them. 
Lines 625- check if there are two '0's on any line and places a third to give victory 

to the computer. 

1 REM * TIC TAC TOE FOR LEVEL 1 16K RAM USERS * 

2 REM * BY B SMITH 7 INNES ST ALBANY WA * 

3 CLS:P.A.463, "DO YOU WANT TO GO FIRST. (YES OR NO)";:I.M 

4 A=0:B=0:C=0:D=0:E=0:F=0:G=0;H^O: I=0:Q=0:L=0: Z=0 

5 CLS:P.A.27, "TIC TAC TOE" 

6 P. A. 84, "1 ,1 :P.A.93, "2": P. A. 102, "3": P. A. 276, "4" : P. A- 285, "5" 

7 P. A. 294, '^"iP. A. 468, "7" : P. A. 477, "8" : P. A. 486, "9" 

8 X=56:F.Y=3TD28:S. <X,Y> :N.Y 

9 X=73:F.Y=3T028:S. (X,Y) :N.Y 

10 Y=11:F.X=40TQ89:S. (X,Y) :N.X 

11 Y=20:F.X=40T089:S- (X,Y) :N.X 

12 IFM=NT.280 

13 P. A. 704, "YOUR MOVE (X) - WHICH NO- " ; : I . J: IF < J >9> + <J< 1 ) T- 250 

14 Z=l: IFJ=1T.23 

15 IFJ=2T.25 

16 IFJ=3T-27 

17 IFJ=4T„29 

18 IFJ=5T-31 

19 IFJ=6T-33 

20 IFJ=7T.35 

21 IFJ=8T-37 

22 IFJ=9T.39 

23 IFA>0T.240 

24 A=1:P.A. 152, "X":G.260 

25 IFB>0T.240 
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26 B=1:P.A. 160, "X ,, sG.260 

27 I FOOT. 240 

28 C=i:P. A. 168, "X" :G.260 

29 IFD>0T.240 

30 D=l : P. A. 344, " X" : 6. 260 

31 IFE>0T-240 

32 E=1:P.A.352, "X":G.260 

33 IFF>OT.240 

34 F=1:P. A. 360, "X" :G.260 

35 I FOOT. 240 

36 8=1 : P. A. 536, "X" s B. 260 

37 IFH>0T,240 

38 H=l : P. A. 544, " X" : 8. 260 

39 IFI>0T.240 

40 1 = 1: P. A- 552, "X" :G.260 

240 P. A. 704, "YOU CAN'T USE THIS NO.. IT'S ALREADY IN USE- TRY AGAIN." 

241 F,N=iT0i500:N.N:P.A.704, " " 

242 G.13 

250 P. A. 704, "YOU MUST USE NUMBERS BETWEEN 1 & 9-"sG-24I 

260 IFB=1T.P.A. 160, "X" 

261 IFB=4T.P. A. 160, "0" 

262 IFC=1T.F. A. 168, "X" 

263 IFC=4T,P.A. 168, "0" 

264 IFE=1T.P. A.352, "X" 

265 IFE=4T,P,A.352, "O" 

266 IFF=1T.F.A.360, "X" 

267 I FF=4T . P . A . 360 , " " 

268 IFH=1T.P.A.544, "X" 

269 IFH=4T« P. A. 544, "O" 

270 IFI=1T.P.A.552, "X" 

271 IFI=4T.F.A.552, "O" 

272 G0S.399 

273 IFZ=2T.280 

274 G- 13 

280 P. A. 704," IT'S MY TURN M i F. N=1T01000: N. N 

282 I FQ=OT . GOS . 550 : G . 284 

283 IFQ=lT.62f> 

284 IFL=1T.P.A. 152, "O" : A=4: G. 260 

285 IFL=2T.P.A. 160, "O" : B=4: G. 260 

286 IFL=3T.P.A. 168, "O" : C=4: G. 260 

287 IFL=4T.P.A.344, "O" : D=4: G- 260 

288 IFL=5T. P. A. 352, "O" :E=4: G. 260 

289 IFL=6T-P. A.360, "O" : F=4: G. 260 

290 IFL=7T, P. A. 536, "O" : G=4: G. 260 

291 IFL=8T.P. A.544, "O" : H=4: G. 260 

292 IFL=9T.P.A.552,"0": 1=4: G. 260 

293 GOS ,399 

294 Z=Z~2 

295 G.13 

398 E. 

399 X=56:F.Y=3T02S:S. <X,Y) : N. Y: X=73: F. Y=3T028: S. <X,Y) :N.Y 

400 K=A+B+C: IFK=3T. 500 

401 IFK=12T.505 

402 K=D+E+F: IFK=3T.500 

403 IFK=12T.505 

404 K=G+H+ I : I FK=3T . 500 

405 IFK=12T.505 

406 K=A+D+G: IFK=3T.500 

407 IFK=12T.505 

408 K=B+E+H: IFK=3T- 500 

409 IFK=12T,505 

410 K=C+F+I : IFK=3T. 500 

411 IFK=12T.505 

412 K= A+E+ I : I FK=3T . 500 

413 IFK=12T.505 

414 K=C+E+G: IFK=3T.500 

415 IFK=12T.505 

416 IF<A>0) * (B>0)*<00)*(D>0)*(E>0)*<F>0)*(G>0)*(H>0)*<I>0)T-510 

417 Z = Z + 1 

418 RET. 

500 P. A. 704, " 

501 P. A. 714, "*** YOU WIN - WELL DONE. ***" 

502 P.A.849,"WANT TO PLAY AGAIN. (YES OR NQ)";:I.M 

503 IFM=YT-3 

504 CLS:E. 

505 P. A. 704, " 
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506 p. A. 716, "*** I BEAT YOU DUMMY- #**" 

507 G.502 

510 P. A- 704, " 

511 P. A. 720, "»** IT'S A DRAW, ***" 

512 6,502 

550 G=1:L=RND(9) 

551 IFL=1T.561 

552 IFL=2T=563 

553 IFL=3T.565 

554 IFL=4T.567 

555 IFL=5T.569 

556 IFL=6T.57i 

557 IFL=7T.573 

558 IFL=8T.575 

559 IFL=9T.577 

560 RET. 

561 IFA>0T.550 

562 RET. 

563 IFB>0T.550 

564 RET. 

565 I FOOT. 550 

566 RET. 

567 IFD>0T.550 

568 RET. 

569 IFE>0T.550 

570 RET. 

571 TFF>0T.550 

572 RET. 

573 IFG>0T.550 

574 RET. 

575 IFH>0T.550 

576 RET. 

577 IFI>0T.550 

578 RET, 

580 REM * TEST FOR POSITION OF 'X' TO BLOCK * 

581 IF((A=1)*(B=1) >+( (A=1)*(C=1) )+( (C=1)*(B=1) )T.591 
5S2 IF< <D=1) *<E=1) )+( (D=l) *<F=1) >+< <E=1)*(F=1) )T-595 

583 IF((G=1)*(H=1))+((G=1)*(I=1))+((H=1)*(I=1) >T.599 

584 IF< (A=l) * (D=l) > + < <A=1)*<G=I> ) + < (D=1)*(G=1) >T.603 

585 IF( (B=l) *<E=I) )+< <E=1) *(H=1) )+< (8=1) *(H=1) >T.607 

586 IF( <C=1) *<F=1> )+( (F=l) *<I=1) ) + ( <C=1)*<I=I) )T.611 

587 IF( (A=l) *<E=1> )+< (E=l) *(I=I> )+( (A=l) *<I=i> )T,615 

588 IF< <C=l)*<E=l>) + < <E=1)*(G=1> ) + ( <C=1)*(G=1) >T,619 

589 Q=0sG-282 

591 IF<A>0>*(B>0)*(00>T.582 

592 IFA=OT. L=l : 6- 284 

593 IFB=0T.L=2:G.285 

594 L=3:G.2S6 

595 IF(D>0)*(E>0)*<F>0)T.583 

596 IFD=OT. L=4: G. 287 

597 IFE=OT. L=5s G. 288 

598 L=6:6.289 

599 IF (G>0) * <H>0) * ( I >0) T. 584 

600 I FG=OT . L=7 : G . 290 

60 1 I FH=OT . L=8 : G . 29 1 

602 L=9:6.292 

603 IF<A>0)*<D>0)*<G>0)T.5S5 

604 I FA=OT . L= 1 : 6 . 284 

605 I FD=OT . L=4 : G . 287 

606 L=7:G.290 

607 IF <B>0> * (E>0) * <H>0) T- 586 

608 I FB=0T . L=2 ; G . 285 

609 IFE=OT- L=5: G. 288 

610 L=8:G.291 

611 IF<O0)*(F>0) *<I>0)T-587 

612 IFC=0T.L=3:G.286 

613 IFF=OT. L=6: G. 289 

614 L=9:G.292 

615 IF<A>0)*<E>0)*(I>0)T.588 

616 IFA=OT- L=i : G. 284 

617 IFE=OT. L=5: G. 288 

618 L=9:G.292 

619 IF<00)*<E>0)*(G>0)T.589 

620 I FC=OT . L=3 : G . 286 

62 1 I FE=OT . L=5 : G . 288 

622 L=7sG-290 
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624 REM * TEST FOR POSITION OF '0' TO WIN * 

625 IF( <A=4) *(B=4) > + < (A=4) *(C=4> > + < <B=4>* (C= 

626 IF< <D=4)*<E=4> > + < (D=4) *<F=4) ) + < <E=4) * <F= 

627 IF< <6=4>*<H=4> ) + ( (G=4)*(I=4> >+< (H=4) *<I = 

628 IF< <A=4)*<D=4> ) + < <A=4)*<G=4) > + < <D=4)*(B= 

629 IF( <B=4)*(E=4) > + < (E=4)*(H=4) > + < (B=4) * (H= 

630 IF( (C=4)*(F=4) > + < <F=4)*(I=4> ) + < <C=4)*<I = 

631 IF( <A=4> * (E=4> ) + ( (E=4) * (1=4) ) + ( (A=4) *<I = 

632 IF( <C=4)*<E=4> > + < <E=4>*<6=4> > + < (C=4)*(G= 

633 G.581 



4) )T. 


591 


4) )T. 


595 


:4> )T. 


.599 


4) )T. 


,603 


4) )T. 


,607 


4> )T. 


,611 


=4) )T. 


,615 


4) )T. 


,619 



ATTACK 



Disk Basic - L2/16K 



by M. Bloss ***** 



Attack is a fast, exciting game with sound. Your space ship is at the bottom of the screen 
but all that is shown is your cannon. An alien ship appears at the top of the screen and fires 
rockets at you. You must intercept each rocket by firing your cannon and blowing it up. 

The closer the rocket is to the alien ship when you hit it, the higher your score. There are 

eight columns on the screen down which the alien fires, and in which the cannon is able to move 

and fire. If you miss a rocket it will destroy you which terminates the game. The longer you 
play, the faster the game. 

To hear the sound, connect an audio amplifier to the plug that normally goes into the AUX socket 
of the CTR-80. Alternatively, remove all the plugs from your cassette recorder, connect the 
AUX plug into the MIC socket on the recorder, press down the PLAY key and turn up the volume. 
Thanks are due to C.E. Kendall for his KEYBOARD BLEEPER program published in MICRO-80, Issue 
12. 

When entering the program, Disk users should remove the apostrophe (* ) from the beginning of 
line 40. Level II users may omit line 40 altogether. 



SYSTEM-80 OWNERS ADJUST LINES 1080 TO 1100 AS PER COMMENTS 



30 60SUB1050 

40 CLEAR 1 500 : D I MNA$ ( 30 ) z Z Z=50 ; 



50 ' DEFUSR=?-:H407B : REMEMBER DISK USERS UNCOMMENT THIS LINE 



: CLS : PR I NT3532 , NA* < G ) ; " ' S TURN " : F0RG6= 1 T02500 : 



60 GQSUB360 

70 SC=0:SH=0: 6=6+3 

NEXT66:CLS 

SO 6GSUB330 

90 X= 16352 

1 00 M=66 : G0SUB820 

110 G0SUB140 

120 RANDOM 

130 GQT0210 

140 A*=INKEY* 

150 IFA*= M l H THENX=X-5: IFX< 

160 IFA$=" 1 "THEN60SUB840 

170 IFA$="2 n THENX=X+5: IFX5 

I FA*= " 2 " THEN60SUB 1 O 1 O 

I FA$= " " THENG0SUB290 
200 GGSUB230: RETURN 
210 A=RND<8> :FQRZ=1T02 
220 A=5*A+17 

230 R=USR<-5120> : F0RAA=A+15360T0A+16256STEP64 

240 G0SUB140: PCKEAA, 1 44; POKEA+15359, 130: POKEA+ 15360, 134: IFAA>154 
24THENP0KEAA-64, 128 
250 POKEAA, 128 
260 NEXTAA 
270 G0T0710 



180 
190 



16339THENX=X+5 
16380THENX=X-5 



::60SUB140:NEXT:ZZ=ZZ- 
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2S0 POKE X - 1 , I 60 : POKE X , 1 SO : RETURN 

290 F0RXX=X-64T0X-960STEP-64:P0KEXX, 132: POKEXX+64, 128: G0SUB2S0: P 

OKEXX, 128s IFXX=AATHENC=1: XX=X-960 

300 NEXTXX: IF01THEN740 

310 POKEX-960, 128 

320 RETURN 

330 FCRN-19TG60STEP41 : F0R0=15360+NT01 6320+NSTEP64: POKEQ, 149; NEXT 

0,N 

340 XN=77s FORNN=600TOOSTEP-IOO: PRINT3XN, NN; : IFNN-iOOTHENXN=XN+13 

0EL5EXN=XN+I28 

350 NEXT: RETURN 

360 CLS:FQRL=IT07:PRINTCHR*t23) ; :PRINT"A T T A C K ! !":PRINT:NE 

XTL 

370 F0RL=1T050: A=USRCL*256> : F0RLL=1T025; NEXTLL, L 

380 CLS 5 PR I NT" YOU ARE ON THE SPACESHIP , THE GALACTIC RUN" 

390 PRINT"WHILE PASSING THE GALAXY 74RV2 5 YOU COME UNDER ATTACK" 

400 PRINT"BY A FLEET OF ALIENS." 

410 PR I NT "YOUR JOB IS TO SHOOT DOWN THESE ALIENS AND SCORE POINT 

S. " 

420 PR I NT: PR I NT "YOUR SHIP IS AT THE BOTTOM OF THE SCREEN AND ONL 

Y THE" 

430 PR I NT "GUN IS SHOWN, THE ALIENS FIRE FROM THE TOP OF THE" 

440 PR I NT "SCREEN DOWN ANY OF THE 8 COLUMNS COVERED BY YOUR SPACE 

SHIP" 

450 PR I NT "YOU HAVE TO INTERCEPT THE MISSILE AND BLOW IT UP BEFOR 

E" 

460 PR INT "IT REACHES YOUR SPACESHIP AND DESTROYS IT." 

470 GOSUB650 

480 CLS SPRINT "TO MOVE YOUR GUN PRESS THE <1> KEY TO MOVE LEFT AN 

u 

490 PR I NT "THE <2> KEY TO MOVE RISHT=TO FIRE PRESS THE < SPACE > BA 

R" 

500 PR I NT "THE AMOUNT OF POINTS YOU GET DEPENDS ON HOW FAR UP" 

510 PR I NT "THE SCREEN YOU HIT THE MISSILE." 

520 PR I NT "THE NUMBERS TO THE LEFT" 

530 PR I NT "TELL YQIJ HOW MUCH YOU GET." 

540 PRINT" IF YOU GET HIT THAT IS THE END OF YOUR GAME." 

550 PRINT"AS THE GAME PROGRESSES, THE ALIENS FIRE AT YOU MORE AGR 

ESSIVELY, " 

560 PR I NT "TO WIN YOU MUST HAVE THE HIGHEST SCORE" 

570 PRINT: INPUT "HOW MANY PLAYERS (MINIMUM OF 2>":P 

580 IFP<2THEN570 

590 CLS: PR I NT "ENTER YOUR NAMES ONE AT A TIME" 

600 FORI=lTOP: INPUTNA* < I > : NEXTI : RETURN 

610 SC<G)=SC:3H<G)=SH=PRINT"END OF GO" : IFSH=20THENFRINT" YOU HAVE 

RUN OUT OF ROCKETS" 
620 I FG=PTHEN860 

630 PR I NT "NEXT PLAYER PLEASE PRESS ENTER TO START" 
640 INPUTR*: G0T070 

650 PR I NT "PRESS ANY KEY TO CONTINUE" 

660 F0RL=1T010000: Q*=INKEY*: IFG*< >" "THENL= 10000: G0T0680 
670 LL=RND(50)+70:R=USR<LL*256) s F0RLA=1T025: NEXTLA 
680 NEXTL: RETURN 
690 RETURN 
700 G0T0700 

710 GQSUB970: FOR V=!T040:R=USR< -2560) : NEXTV: CLS: PRINT"K A B O M 
i i >> 

720 PR I NT "A MISSILE HIT YOUR SHIP AND BLEW IT UP" 

730 G0T0610 

740 C=0:POKEXX, 128: POKEXX-65, 128: POKEXX-64, 123: GOSUBI030: F0RV=1T 

012: R=UER < O > : NE X TV : GOSUB 1 040 : FQRQQ= 1 TO 1 00 : NEXTQQ : I FAA< 1 555 1 THENSC 

=SC+600: GQT0830 

750 IFAA< 15679THENSC=SC+500: G0T0830 

760 IFAA< 15807THENSC=SC+400: GOTOS30 

770 I FAA< 1 5935THENSC=SC+300 : GOTOS30 

780 I FAA< 1 6063THENSC=SC+200 : G0T0830 

790 I FAA< 16191 THENSC=SC+ 1 00 

800 G0T0830 

8 1 O I FSC< 1 0000THENM=65ELSEM=64 

820 PR I NTS 1, "SCORE"; : PRINT3M, SC; s RETURN 

S30 60SUB8I0:F0RER=A-lT0895+ASTEP64sPRINT3ER, STRING* <2, 128) ; : NEX 

TER:G0T0210 

340 IFX<16339THENRETURN 

350 FOKEX+4, 12B:P0KEX+5, 128= RETURN 

860 PR I NT "THESE ARE THE FINAL SCORES" 

870 F0RG=1T0P 
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880 PRINTNA* 03) | " USED UP" ; 5H (G) ; "SHOTS AND SCORED" : SC <6) 

S90 F0RS=1T0500:NEXT3,G 

900 F0R6=1T0P 

910 F0RD=1T0P 

920 X FSC ( G > < -SC ( D ) THEN940 

930 WW<G)=WW<G>+I: IFWW <S) =P-1THEN950 

940 h4EXTD,6 

950 PR I NT : PR I NTNA* < G ) ; " WON W I TH " % SC < G ) ; " PO I NTS . CONOR ATUL AT I ONS ! 
i « 

960 PRINT" INPUT" PLAY AGAIN" ; A*: A*=LEFT* <A* F 1) : IFA*= ,, Y"THEN40ELSE 

PR I NT" GOODBYE FOR NOW" 5 END 

970 POKEX-1, 12S:F0KEX, 128: POKE 16342, 161: POKE 16346, 181:P0KE16353, 

177: POKE 16359, 179: POKE 16365, 178: POKE 1 6372, 186: POKE 16376, 146 

980 POKE 16276, 161 s POKE 16281 , 161 : POKE 16233, 161 : POKE! 6294, 177: POKE 

1 6296 , 1 78 : POKE 1 6302 ,146: POKE 1 6309 ,146; POKE 1 63 1 4 , 1 46 

990 POKE16216, 162; POKE 16223, 162: POKE 16229, 161 : POKE 16233, 146: POKE 

16239, 145: POKE 16246, 145 

1 000 POKE 16158,161: POKE 1 6 1 64 , 1 62 : POKE 16170,1 45 : POKE 16176,146: POK 

E16100, 145:F0KE16106, 162: PRINT34S3, "K A B O M !";: RETURN 

1010 IFX>16380THENRETURN 

1020 POKEX-6, 128:P0KEX-5, 123: RETURN 

1030 POKEAA+63, 146: PQKEAA+65, 161 : POKEAA-65, 161 : POKEAA-63. 146: POK 

EAA-1 , 132:P0KEAA»2, 132: POKEAA+1 , 136: POKEAA+2, 136: RETURN 

1040 POKEAA-2, 123: POKEAA+2, 123; F0RWS=AA-63T0AA+65STEP64: POKEUIS, 1 

28; NEXT; F0RWS=AA-65T0AA+63STEP64: P0KEW3, 128: NEXT: RETURN 

1050 FORJ = 16435T016437: READ I : POKEJ , I ; h4EXT 

1060 FORJ=1648OT0 16513: READ I: POKEJ, I; NEXT 

1070 POKE 16405,0 

1080 DATA195,96,64,205,227,3, 183,200,8, 14,20,68,62, 1,211,255, 16, 

201 

1090 REMEMBER TO UNCOMMENT THIS LINE AND DELETE LINE 1070 IF 

YOUR COMPUTER IS A SYSTEM 80. DELETE ALL OF THIS LINE UP TO 

HERE. DATA195, 96,64,205,227, 3, 183,200,8, 14,20,68,62,5,211,255, 16 

,254,63,62,6,211,255, 16,254, 13,32,239,8,201,205, 127, 10,205, 101,64 

,201 

HOO REMEMBER TO UNCOMMENT THIS LINE AS WELL, UP TO HERE. 

0UT254 !i 255 

1110 POKE 16526, 123; POKE 16527, 64; RETURN 



***** BASIC LINE REFERENCE VALIDATOR Level 2/4K-16K by K. Shillito ***** 

This little program snuggles itself into a part of memory that the BASIC interpreter never uses. 
Thus, even if the memory is "full", this program can still be loaded and run! You can create 
it using BMON or with an assembler. 

** PROGRAM FUNCTION ** 

The purpose of thi s program i s to detect al 1 i nstances of reference to non-exi stent 1 i nes i n 
BASIC programs, (including direct commands, except the LIST command, which does not generate 
an error for non-existent lines). 

** LOADING AND RUNNING THE PROGRAM ** 

Type SYSTEM, then NONAME, then press BREAK. 

The program is now available whenever required- To run it, press SYSTEM, followed by /16455. 

The program will give ?FC ERROR followed by the number of the first line it encounters containing 

a reference to a non-exi stent 1 i ne number (e.g. GOTO 300 , where 300 doesn ' t exi st ) . After 

correcting the error, run it again to see if there are further errors. It is advisable to run 

this program before using a RENUMBER utility (such as BMON). 

** WARNING ** 

This program may give spurious error messages if you have somehow POKEd graphics characters 
into strings or remarks. This is not normally possible unless you used a special utility such 
as S-KEY to do it. 

** TECHNICAL COMMENTS ** 

This program occupies only 59 bytes and resides from 16455 to 16504, an area of memory that 
is never used by BASIC. Hence, it can be used even if memory is completely full. The program 
will not detect references unaccompanied by key words. Also, it will detect certain types of 
syntax errors. It does not detect a reference in the form 'DELETE-30, which is unlikely to 
occur anyway. Apart from these exceptions, it should pick up all references, including some 
which BMON's RENUMBER misses. 
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** RELOCATION ** 

The program can be relocated. No re-assembly is needed. 

** HEX CODE ** 

4047-404E 2A A4 40 D7 CA 66 00 23 

404F-4056 4E 23 46 ED 43 A2 40 D7 START ADDRESS 4047 

4057-405E FE 00 28 IE EB 21 7C 40 NAME NONAME 

405F-4066 01 07 00 ED Bl EB 20 EF 

4067-406E D7 30 ED CD 5A IE E5 CD 

406F-4076 2C IB El D2 4A IE AF BE 

4077-407E 20 EE 23 18 CE 91 8D 95 

407F-40S2 CA 3E 9F B6 

** METHOD OF OPERATION ** 

The program uses an area of RAM starting at 4047H and ending with the USR pointers that is never 
used by BASIC. It makes the following assumptions about BASIC syntax: 

1. Basic line references only occur after the tokens (in hex) 8D, 91, CA, 95, 8E or B6 (the 
LIST tokens B4 and B5 cannot have invalid line references, so they are not included in the 
program), possibly with interspersed blanks. 

2. Where a line reference occurs, followed by a non-zero byte that is an ASCII digit, then 
that digit must begin another line reference, e,g. 

GOSUB 10,20 

DELETE 2-40 

(A digit should not follow a colon). 

3. The tokens in Note 1 above occur only as such (hence, the program must not contain graphic 
characters in string constants or REM's. 

{Actually, Note 1 is not quite true - this is why statements in the form DELETE -20 or IF(X)20 
are overlooked) . 

The mode of operation of each section of the EDTASM source code is explained below. 

PROCESS LINE POINTERS AND LINE NUMBER 

This returns to BASIC at the end of the program. (I find 66H to be better than 6CCH, since 
the former repairs the stack). If the end is not yet reached, then it places the line being 
processed in the pointers in case an error message is to be generated. 

SEEK TOKENS IN LINE 

This looks at each byte in a line, going to the section above, if the EOL token is encountered, 
or to the section below if one of the tokens in Note 1 above is encountered. 

SEEK LINE REF. AFTER TOKEN 

This returns to the previous section if a token (or comma or dash as per (2) above), is not 
followed by a digit. 

VALIDATE LINE REFS . 

This uses ROM routines to convert the line ref. from ASCII to hex, and then to check that it 
exists. If not, then FC ERROR is generated, since I don't know the entry point for UL ERROR, 
(it is 1ED9 - Ed.) 

OOIOO ;******************** 

00110 ;*BASIC LINE REFERENCE VALIDATION ROUTINE 

00120 ;*KEN SHILLITO DECEMBER 1980 
00130 ;******************** 

00140 ; PROCESS LINE POINTERS AND LINE NUMBER 

4047 0O150 ORG 4047H ; UNUSED RESERVED MEM 

4047 2AA440 00160 VALID LD HL, (40A4H) ;<HL>=START BASIC 

404A D7 00170 NEXLIN RST lOH ;(HL)=A=MSB LINE PTR 

404B CA6600 00180 JP Z „ 66H ; RESET AT END 

404E 23 00190 INC HL ;(HL)=LSB LINE PTR 
404F 4E 00200 LD C, (HL) 

4050 23 00210 INC HL ;<HL)=MSB LINE NO. 

4051 46 00220 LD B, (HL) ;BC=LINE NUMBER 

4052 ED43A240 00230 LD (40A2H>„BC ; IN CASE OF ERROR 
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D0N7BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UPTO 
NEWDOS80 $149 incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well -documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5% inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk'Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK -- Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37 00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $349 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80TRACK DRIVES 

MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1 500! ! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $619 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 



PLEASE USE ORDER FORM ON PAGE 36 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 

VIA 

SYSPAND-80 - $97.50 incl. p&p 

The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $120 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assemblesdirectly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 



BASIC COMPILER 



$208 plus $2 .00 p&p 



New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



UPGRADE TO 16K 
FOR ONLY $30.00!! 

MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 1 2 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 — 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $39 incl. p&p 

DC-4 4 Drive Connector Cable $49 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 

OF YOUR DISK DRIVES 

PERC0MD0UBLER ONLY $220 

plus $2.00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPl, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 



DENSITY PATH 



EWD0S! 




FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 

Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 
$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 

sample programs. Applies to both TRS-80 and SYSTEM 

80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 

structures revealed, DOS's compared and explained, 

how to recover lost files, how to rebuild crashed 

directories — this is a must for the serious Disk user 

and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 



HIGH QUALITY DISKETTES all prices include p&p 



40 TRACK NASHUA SINGLE SIDE/SINGLE DENSITY ... $45.00 box of 10 



PAGE 19 



SOFTWARE BY AUSTRALIAN AUTHORS 

All our software is suitable for either the SYSTEM 80 or the TRS-80 



NEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1 .00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 

Super-quality personal computing cassettes. 

C-10 pack of 10 $26.00 incl. p&p 

C-30 pack of 10 ., $28.00 incl. p&p 



UTILITIES 

S-KEY by Edwin Paay $15.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user wilt have many 
new features not available with the standard machine. 
S-KEY features: 

e S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 
h S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/16-48K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly . . . the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY(L2/16K) $8.95 + 60c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95 + 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 



HIGH QUALITY DISKETTES 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60c p&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $8.95 + 60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $8.95 + 60c p&p 

Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF (L2/16K) $8.95+ 60c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

D0MIN0ES(L2/16K) $8.95 + 60c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $8.95 + 60c p&p 

Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions — 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED(L216,32 or 48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(*Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$9.50 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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4056 D7 

4057 FEOO 
4059 28 IE 
405B EB 
405C 217C40 
405F 010700 
4062 EDBi 

4064 EB 

4065 20EF 

4067 D7 
406S 30ED 

406 A CD5A1E 
406D E5 
406E CD2C1B 

4071 El 

4072 D24A1E 

4075 AF 

4076 BE 

4077 20EE 
4079 23 
407A 



1SCE 



407C 9ISD 
407E 95CA 
40S0 8E9F 
40S2 B6 
4047 



00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
004 1 
00420 
00430 
0044O 
00450 
00460 
00470 
00430 
00490 
00500 
005 1 
00520 
00530 
00540 
00550 
00560 
00570 



;SEEK TOKENS IN LINE 



NEXCHR 
KEEPON 



RST 

CF 

JR 

EX 

LD 

LD 

CFIR 

EX 

JR 



10H 



Z,NEXT 

DE,HL 

HL, TOKENS 

BC,7 

DE,HL 

NZ, NEXCHR 



;SEEK LINE REF AFTER TOKEN 
10H 

NC, KEEPON 
REFS 
1E5AH 
HL 

1B2CH 
HL 

NC, 1E4AH 
A 

<HL) 

NZ, FOUND 
HL 
NEXLIN 



FOUND RST 
JR 

; VALIDATE LINE 
CALL 
PUSH 
CALL 
POP 
JP 
XOR 
CP 
JR 

NEXT INC 
JR 



;DATA - COMPRESSION TOKENS 



TOKENS 



DEFW 
DEFW 
DEFW 
DEFB 
END 



8D91H 

0CA95H 

9F8EH 

0B6H 

VALID 



A=NEXT BYTE, SET FLAGS 

EOL REACHED? 

TO NEXT LINE IF EOL 

SAVE HL 

HL-TOKENS ORG 

BC=NO. OF TOKENS 

SET Z IF A IS TOKEN 

RESTORE HL 

KEEP SEEKING TOKENS 

A=NEXBYT,SET C IF NUMRIC 
NO MORE LINE REFS 

DE=LINE NO- „ <HL)=DELIMTR 

SAVE HL 

SET C IF LINE EXISTS 

RESTORE HL 

FC ERROR ROUTINE 

A=0 

IS DELIMITER EOL? 

SEEK FURTHER REFS 

SKIP EOL 

SEARCH NEXT LINE 

GOTO, GOSUB 
THEN, ELSE 
RESUME, RUN 
DELETE 



;THE ABOVE ROUTINE IS RELOCATABLE WITHOUT RE-ASSEMBLY. 
;N.B. IT MUST NOT BE USED WITH PROGRAMS THAT CONTAIN 
; GRAPHICS BYTES IN STRING CONSTANTS OR REMARKS. 
;IT OCCUPIES 59 BYTES 



MULTIPLE REGRESSION ANALYSIS L2/16K 



by T.R. Jones ***** 



Multiple regression analysis is used to test the relationship between a dependent variable (Y) 
and a number of independent variables (XI ,X2,X3, XN). 

This routine allows multiple regression analysis between the independent variable Y and two 
dependent variables XI and X2, in accordance with the model :- 

Y = A + BX1 + CX2. 

The routine calculates the coefficients for the multiple regression equation, the mean values 
of XI, X2 and Y, the coefficient of multiple regression (an indication of closeness of fit, 
where 1 is perfect), and the percentage variation in Y due to XI, X2, and XI and X2 jointly. 
In addition, a residual table can be printed on command and estimations of Y computed for entered 
values of XI and X2. 

The routine will accept up to 100 data sets, which are verified and can be edited following 
entry. 



20 CLS:DEFINTI-N:DIMX<3, lOO) ,A<6,3) ,R(6,3) : P*=" ######. ####" 
30 PRINTTABC 18) "MULTIPLE REGRESSION ANALYSIS": 

PRINTTAB<1B)STRING*<28,45) 
40 PRINT:PRINT:PRINT:PRINTTAB(29) "MODEL" : PRINT: 

PRINTTAB<23> "Y = A + BXi + CX2" 
50 PRINT3977, "TYPE <ENTER> TO CONTINUE ....";: INPUTI* 
60 CLS:PRINTTAB(27) "ENTER DATA" : PRINT: PRINT: 

PR INTTAB< 13) "NUMBER OF DATA POINTS - MAXIMUM IS 100" 
70 PRINTTAB(28) "*"; : INPUTND: IFND<20RND>100 

PR I NTCHR* ( 27 ) ; CHR* < 30 ) ; CHR* ( 29 ) ; CHR* ( 27 ) : 60T070 
80 PRINT: PRINT: F0RI=1T0ND: 

PRINT" XI <"; I; ") =";: INPUTX<1,I) : 

PRINTTAB(22)CHR*<27>"X2<";I;") ="; : INPUTX<2, I) : 

PRINTTAB<44)CHR*(27) "YCjI; " ) =" ; : INPUTX (3, I ) : NEXTI 
90 CLS:K=0:PRINTTAB<26) "DATA ENTERED" : PRINT: FORI = lTOND: K=K+1 : 

PRINT"XK";I;") =" ; X < 1 , I ) ; TAB <22) "X2 ( " ; I ; " ) =";X(2,I); 

TAB (44) "Y(";i;") =";X(3, I ) : IFK< lONEXTI 

ELSEPRINT3977, "TYPE < ENTER > TO CONTINUE ...";: 

INPUTI*:K=0:CLS: NEXTI 
100 PRINT3983, "EDIT DATA (Y/N)"; 
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110 I*=INKEY*:IFI*=""THENlI0ELSEIFI*= ,, Y I, THENi20ELSEIFI*= ,t N M 

THEN140ELSE110 
120 CLS: INPUT "DAT A POINT TO BE EDITED"; I: 

IFI >NDTHEN120ELSEPRINTTAB (4) " X 1 ( " ; I ; " ) =" ; X ( I , I ) ; 

TAB(24)"X2(";I;") =";X<2,I>; 

TAB(44)"Y(";I;") =";X(3, I) 
130 PRINT"NEW XI ( " ; I ; " ) =" ; s INPUTX ( 1 , I ) : 

PRINTTAB (24) CHR* (27) ;"X2("; I;") = ";: INPUTX (2, I): 

PRINTTAB (44) CHR* (27) : " Y < " ; I ; M > =" ; : INPUTX (3, I ) : G0T090 
140 CLS: PRINT3473, "COMPUTING 

150 F0RI=1T06:F0RJ=1T03:A(I, J)=OsR(I, J)=0:NEXTJ 5 I 
160 FORI=lTOND:A(l, 1 ) =A ( 1 , 1 > +X ( 1 , I ) s A < 1 ? 2) =A ( 1 „ 2) +X (2, I ) s 

A(1,3)=A(1,3)+X(3, I):NEXTI:A(2,i)=A(l,l)/ND: 

A<2,2)=AU,2)/ND:A<2,3>=A<1,3)/ND 
170 FORI=1TOND:A(3, 1 ) =A (3, 1 ) + (X ( 1 , I ) C2) s A (3, 2) =A (3, 2) + (X (2, I) E2) 
: A(3,3)=A<3,3)+(X(3, I)C2) :NEXTI 
180 F0RI=1T0ND:A(4, 1 ) =A (4, 1 ) + (X ( 1 , I ) *X (3, I ) > : 

A(4,2)=A(4 5 2) + (X<2,, I ) *X (3, I ) > : A (4, 3) =A <4, 3) + (X ( 1 , I ) *X (2, I ) ) : 

NEXTI 
190 A(5, I)=A(3,1)~(A(1., 1) C2/ND) : A (5, 2) =A (3« 2) - (A ( 1 , 2) C2/ND) : 

A(5,3)=A(3,3)-(A(1,3)C2/ND) 
200 A (6, I)=A(4, l)-( (AU,1>*A(1,3>)/ND) : 

A(6,2)=A(4,2)-( (A(1,2)*A(1,3> ) /ND> : 

A(6,3)=A(4,3)-((A(1, 1 ) *A ( 1 , 2) > /ND) 
210 R(i,l)=(A(6, 1)C2)/(A(5,3)*A(5„ 1) ) : R ( 1 , 2) =SGR (R ( 1 , 1 ) ) : 

IFA <6, 1 ) <OTHENR (1,2) =-R (1,2) 
220 R(2, 1)=(A(6,2)E2)/(A(5,3)*A(5,2) ) : R (2, 2) =SGR <R (2, 1 ) ): 

IFA(6,2X0THENR(2,2)=-R(2,2) 
230 R(3, 1) = (A(6,,3) C2)/(A(5, 1)*A(5,2) ) : R (3, 2) =SGR (R (3, 1 ) ) : 

IFA (6, 3) <OTHENR (3, 2) =-R (3,2) 
240 R(4,1)=(R(1,2)-(R(2,2)*R(3,2)))E2: 

R(4,,1)=R(4, 1)/(<1-R(2,1) )*(1-R<3,1))) : 

IFR (4,1) <OTHENR (4, 2) ^OELSER (4, 2) =SGR <R (4, 1 ) ) 
250 R(5,1)=(R(2 ? 1)-(R(2,2)*R(3,2) )) C2: 

R<5,1)=R(5,1)/((1-R(1,1) )*(1-R(3,i))): 

IFR (5, 1 XOTHENR (5, 2) =OELSER (5, 2) =SQR <R (5, I > ) 
260 RS=R(2, 1)+R(1, 1 ) - (2*R (1 , 2) *R <2, 2) *R (3, 2) ): 

RS=RS / ( 1 -R ( 3 , 1 ) ) : I FRS > 1 THENRS= 1 : RM= 1 ELSERM=SGR ( RS > 
270 C=(A(6,3)*A(6,1))-(A(5,1)*A(6,2)): 

C=C/ (A (6, 3) C2-(A<5,2)*A(5, 1) ) ) 
280 B=A (6, 1 > - (C*A (6, 3) ) : B=B/A (5, 1 > 
290 D=A<2 ; ,3)-(B*A(2, 1) )-(C*A(2„2) ) 
300 CLS: PR I NT "THE EQUATION FOR THE REGRESSION LINE IS :":PRINT: 

PR I NT "YH AT = " ; 
310 IFD<OPRINT"-" ; ABS <D) ; ELSEPRINTD; 

320 IFB<OPRINT"-";ABS(B) ? "XI " ; ELSEPRINT"+" ; B; M X1"; 
330 IFC<OPRINT" -" ; ABS (C) ; "X2" ; ELSEPRINT" +";C; ,, X2"; 
340 PRINT:PRINT:PRINT"MEAN XI ="sA(2, l)s 

PRINT"MEAN X2 =";A(2,2): 

PRINT"MEAN Y =";A(2,3) 
350 PRINT: PR INT"COEFFICIENT OF MULTIPLE CORRELATION = ";RM 
360 R1=R(1, 1)*100:R2=R(2, 1) * 100: RS=RS*iOO: PRINT: 

PRINT"VARIATION IN Y DUE TO : XI =";R1;"7,": 

PRINTTAB (24) "X2 =" ; R2; "7." 5 

PRINTTAB(19) "XI & X2 =" ; RS; "'/." 
370 PRINT3978, "PRINT RESIDUAL TABLE <Y/N) "; 
380 I *= I NKE Y* : I F I *= " " THEN3SOELSE I F I *= " Y " THEN390ELSE I F I *= " N " 

THEN470ELSE380 
390 CLS:J=0 

400 F0RI = 1T0ND:YH=D+(B*X(1., I) >+(C*X(2„ I) ) :RE=YH-X(3, I) 
410 IFJ=0G0SUB510 
420 PRINTUSING"##"; 1 5 : PRINTTAB (5) ; : PRINTUSINGP*; X ( 1 , I) ; X (2, I); 

X(3, I) ;YH;RE 
430 J=J+1 s IFJ >9THEN440ELSE450 

440 PRINT8977,"TYPE < ENTER > TO CONTINUE ...";: INPUTI*: J=0: CLS 
450 NEXTI 
460 R5=RS/100: SD= ( I-RS) *A (5, 3) : PRINT: 

PR I NT "SUM OF SQUARES OF DEVIATION FROM REGRESSION =";SD 
470 PR I NT3978, "ESTIMATE VALUES OF Y (Y/N)"; 
480 I $= I NKE Y* : I F I *= " " THEN4SOELSE I F I *= " Y " THEN490ELSE I F I *= " N " 

THEN460ELSE480 
490 CLS 
500 INPUT*'X1"; XA: PRINTTAB (21 ) CHR* (27) ; : INPUT" X2" ; XB: 

YH=D+ (B*XA) + (C*XB) : PRINTTAB (42) CHR* (27) ; " Y =" ; YH: G0T0500 
510 CLS: PRINT"P0INT" ; TAB ( 1 1 ) ■' X 1 " ; TAB (22) " X2" ; TAB (33) "Y M ; 
TAB (43) " YHAT" ; TAB (55) "RES" : PRINT: RETURN 
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***** ATOMIC TABLES - L2/16K by D. Balaic ***** 

As I read John S. Bone's article from the U.K., I realised how poor the Australian government's 
reaction to computers has been. Where America is already using computers in education wholesale 
from second grade upwards, only a few technical colleges have PETs or the such here. When I 
saw the possibilities of computers in teaching mathematics and sciences, I felt I simply had 
to write an educational program to demonstrate. So "Atomic Tables" was evolved. This program 
not only aims to teach, but also can act as a reference to students studying chemistry, for 
it shows not only the name, symbol and element atomic number, but also gives the group or series 
and accurately gives the electon shells of the said atom. As the movements of atoms in the 
different shells (or energy levels) is not always easily predictable, this program is of particular 
usefulness. It is also capable of telling either of name, number or symbol from any of these 
given. The program uses one large data array to find all three particulars of an atom. Once 
it finds them it prints those which are required by the user. When it completes one question 
display, it searches its data for the required element, during which time the user has to try 
to think of the element. If the user wants only to find the data, there will be a short wait 
before the answer is displayed. 

20 DIMD*<312> 

30 'ELEMENT TABLES 

40 CLS:PRINTS>24, "THE ELEMENTS" ;: PR I NT839, "MAIN INDEX" ;: PR I NTS 192 

,"YOU MAY CHOOSE ANY OF THE FOLLOW I N6: M ; : FRINT3330, "A -TO OBTAI 

N AN ELEMENT'S ATOMIC NO- " ; : FRINTSJ394, "B -TO OBTAIN AN ELEMENT' 

S SYMBOL" ; :PRINT3458, "C -TO OBTAIN AN ATOMIC NO.'S ELEMENT"; 

50 PRINT3522, "D -TO OBTAIN AN ATOMIC NO.'S SYMBOL" ;: PRINT3536, 

"E -TO OBTAIN A SYMBOL'S ATOMIC NO. " ; : PRINTSJ650, H F -TO OBTAIN 

A SYMBOL'S ELEMENT"; :PRINT3714, "G -FOR A LIST OF ALL RELEVANT 

DATA ASSOCIATED WITH AN ELEMENT."; 

60 A*= I NKE Y* : I F A*= " " THEN60ELSE I F A*= " A " THEN 1 40ELSE I F A*= " B " THEN90E 
LSE I FA*= " C " THEN70ELSE I F A*= " D " THEN 1 90ELSE I F A*= " E " THEN2 1 OELSE I FA*= " 
F " THEN260ELSE I F A*= " G " THEN3 1 0ELSE60 

70 CLS:PRINTa>463,' § PLEASE ENTER ATOMIC NO. " ; : INPUTA: G0SUB600: FORN 
=lT0A*3+2: READD*: NEXT: CLS: FRINT3464, "THE ELEMENT FOR" A" IS "D*;:PR 
INT3979, "HIT ANY KEY TO CONTINUE" ;: RESTORE 
80 I F I NKEY*= " " THEN80ELSE30 

90 CLS: FR I NT3466, "PLEASE ENTER ELEMENT" ; s INPUTF*:G0SUB600:F0RN=1 
T03I2: READD* (N) : IFD* <N> =F*THEN120ELSENEXT 
iOO S0SUB160 
110 GQT090 

120 CLS:N=N+I:READD*<N> :PRINT3>465, "THE SYMBOL OF "F$" IS "D*(N>: 
FRINT3979,"HIT ANY KEY TO CONTINUE"; : RESTORE 
1 30 I F I NKE Y*= '* " THEN 1 30ELSE30 

140 CLS:PRINT3465, "PLEASE ENTER ELEMENT" ;: INPUTS*: GOSUB600: FORN= 
1T03I2; READD* <N) : IFD* (N> =S*THEN170ELSENEXT: G0SUB160 
150 G0TO14O 

160 CLS: RESTORE: PR I NT3470, "SORRY, TRY AGAIN" ; :F0RJ=1T0870: NEXT: R 
ETURN 

170 CLS:FRINT3464, "THE ATOMIC NO. OF "S*" IS "D* <N-1 > ; : PRINT3979 
,"HIT ANY KEY TO CONTINUE" ;: RESTORE 
1 80 I F I NKEY*= " " THEN I SOELSE30 

190 CLS:FRINT3466, "PLEASE ENTER ATOMIC NO, " ; : INPUTA: G0SUB600: FOR 
N=lTGA*3+3: READD*: NEXT: CLS: PRINT3469, "THE SYMBOL OF"A"IS "D*;:PRI 
NT3979, ,, HIT ANY KEY TO CONTINUE" ;: RESTORE 
200 IFINKEY*=" "THEN200ELSE30 

210 CLS:PRINT3466, "PLEASE ENTER SYMBOL" :: INPUTS*: GOSUB600: FORN^l 
T03I2:READD*<N> : IFD* <N> =S*THEN240ELSENEXT 
220 G0SUB160 
230 G0T0210 

240 CLS:PRINT3464, "THE ATOMIC NO. OF "S*" IS "D* <N-2> ; : PRINT3979 
, "HIT ANY KEY TO CONTINUE" ;: RESTORE 
250 I F I NKE Y*= " " THEN250ELSE30 

260 CLS: PRINT3466, "PLEASE ENTER SYMBOL" ;: INPUTS*: G0SUB600: F0RN=1 
TQ312; READD* <N> : IFD* <N> =S*THEN290ELSENEXT 
270 G03UB160 
280 G0TQ260 

290 CLS:PRINT3463, "THE ELEMENT FOR "S*" IS "D* (N-l ) ; : PRINT3979, " 
HIT ANY KEY TO CONTINUE" ;: RESTORE 
300 I F I NKEY*= » » THEN300ELSE30 

310 CLS: PRINTS452, "PLEASE ENTER EITHER ATOMIC NO., SYMBOL OR ELE 
MENT" ; : INPUTX*: G0SUB600: IFVAL (X*) <>ON=VAL < X*) : IFN>103THEN590ELSE3 
40ELSEJ=LEN(X*> 

320 F0RN=1 T03 12: READD* <N> : IFD* (N) =X*THEN330ELSENEXT: RESTORE: GOTO 
310 

330 RESTORE: N=N/3:N=INT<N> : IFJ<=2N=N-1 

340 F0RNN=1TQN*3+1: READD* (NN) : NEXT: CLS: PRINT37, "ATOMIC NO- : "N", 
ELEMENT = " ; : READD* ( NN ) : PR I NTD* < NN > " , SYMBOL : " ; : NN=NN+ 1 : READD* ( NN 
> :PRINTD*<NN) " . " :PRINT372, "NO. OF PROTONS: "N", ELECTRONS: "N"." 
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350 PR I NT3670 , N " P " ; s G0SUB390 s PR I NT3320 , " GROUP s " ; : PR I NT3384 , GN* ; s 

PRINT3604, H . -K="K n -. " ; : PRINT3540, " . -L="L"-. " ; : PRINT3476, " . -M="M"- 

."; :PRINT5>412, " . -N="P"-. " ; : PRINT334S, " . -CN ,, Q M -. " ; :PRINT3284, " . -P= 

,, R ,, -. I, ;:PRINT3220,".-Q= O -.";: RESTORE 

360 PRINT3979, "HIT ANY KEY TO CONTINUE" ; :K=0: L=Os M=Os R=0: P=0; Q=0 

370 I F I NKEY*= " " THEN370ELSE30 

380 DATA541,544, 

390 GN*= " TRANS I T I ONAL ELEMENTS " : I FN=30RN= 1 i ORN= 1 90RN=370RN=550RN 

=87GN*= " I " ELSE I FN=40RN= 1 20RN=200RN=380RN=560RN=88GN*= "II" ELSE I FN= 

5QRN=130RN=310RN=490RN=81GN*=" III M ELSEIFN=60RN=140RN=320RN=500RN= 

82GN*= "IV" ELSE I FN=70RN= 1 50RN=330RN=5 1 GRN=83GN*= " V " 

400 I FN=80RN= 1 60RN=340RN=520RN=B4GN*= " V I " ELSE I FN=90RN= 1 70RN-350R 

N=530RN=85GN*= "VII" ELSE I FN=20RN= 1 OORN= 1 80RN=360RN=540RN=540RN=86G 

N*= ,, VIII OR O - NOBLE GASES "ELSE I FN=1GN*=" HYDROGEN " : K=0: R=0: Q=0 

410 I FN >=90BN*= " ACT I N I DE SER I ES " ELSE I FN >=58 ANDN< =7 1 GN*= " L ANTH AN I 

DE SERIES" 

420 IFN>=2K=2s N=N-2ELSEK=N: G0TQ480 

430 I FN >=8L=8 : N=N-8ELSEL=N : G0T0480 

440 I FN >= 1 8M= 1 8 : N=N- 1 8ELSEM=N : G0T0480 

450 I FN >=32P=32 : N=N-32ELSEP=N : G0TQ480 

460 I FN >=32Q=32 : N=N-32ELSEQ=N : G0T0480 

470 IFN>=18R=18:N=N-18ELSER=N 

480 N=K+L+M+P+G+R: IFN=19M=M~1 : P=l : G0T0580 

490 I FN >=20ANDN< =30M=M-2 : P=2 : GOTO580 

500 I FN=37P=P- 1 : Q= 1 : G0T0580 

510 I FN=6 1 P=P- 1 : Q=2 : G0T0580 

520 IFN=62G=2:GOT0580 

530 I FN >=38ANDN< =62P=P-2 : Q=2 : G0T0580 

540 IFN=69Q=Q-l:R=l:GOT0580 

550 IFN=93Q=Q-l:R=2:GOT0580 

560 IFN=94R=2:G0T0580 

570 I FN >=70ANDN< =94Q=Q-2 : R=2 : GOT0580 

580 RETURN 

590 REM 

600 CLS:PRINTS>472, "COMPILING DATA" ; :RETURN 

610 DATAl,HYDROGEN,H,2,HELIUM,HE,3,LITHIUM,LI,4,BERYLIUM,BE,5,BO 

RON, B, 6, CARBONIC, 7, NITROGEN, N, 8, OXYGEN, O, 9, FLOURINE,F, 10, NEON, NE, 

11,S0DIUM,NA, 12, MAGNESIUM, MG, 13, ALUMINIUM, AL, 14, SILICON, SI, 15, PHO 

SPHORUS,P, 16, SULPHUR, S, 17, CHLORINE, CL, 18, ARGON, A, 19, POTASSIUM, K 

620 DATA20, CALCIUM, CA, 21 , SCANDIUM, SC, 22, TITANIUM, TI , 23, VANADIUM, 

V, 24, CHROMIUM, CR, 25, MANGANESE, MN, 26, IRON, FE, 27, COBALT, CO, 28, NICKE 

L,NI, 29, COPPER, CU, 30, Z INC, ZN, 31, GALLIUM, GA, 32, GERMANIUM, GE, 33, ARS 

ENIC, AS, 34, SCLENIUM,SE, 35, BROMINE, BR, 36, KRYPTON, KR, 37, RUBIDIUM, RB 

630 DATA38, STRONTIUM, SR, 39, YTTRIUM, Y, 40, Z IRCONIUM, ZR, 41 , NIOBIUM, 

NB , 42 , MOLYBDENUM , MO , 43 , TECHNET I UM , TC , 44 , RUTHEN I UM , RU , 45 , RHOD I UM , R 

H, 46, PALLADIUM, PD, 47, SILVER, AG, 48, INDIUM, IN, 49, CADMIUM, CD, 50, TIN, 

SN, 51 , ANTIMONY, SB, 52, TELLURIUM, TE 

640 DATA53, IODINE, I , 54, XENON, XE, 55, CAESIUM, CS, 56, BARIUM, BA, 57, LA 

NTHANUM , L A , 58 , CER I UM , CE , 59 , PR ASEOD YM I UM , PR , 60 , NEOD YM I UM , ND , 6 1 , PRO 

METHIUM,PM, 62, SAMARIUM, SM, 63, EUROPIUM, EU, 64, GADOLINIUM, GD, 65, TERB 

IUM, TB, 66, DYSPROSIUM, DY, 67, HOLMIUM, HO 

650 DATA68, ERBIUM, ER, 69, THULIUM, TM, 70, YTTERBIUM, YB, 71 , LUTETIUM, L 

U, 72, HAFN I UM,HF, 73, T ANT ALUM, TA, 74, TUNGSTEN, W, 75, RHENIUM, RE, 76, OSM 

IUM, OS, 77, IRIDIUM, IR, 78, PLATINUM, PT, 79, GOLD, AU, 80, MERCURY, HG, 81 , T 

HALLIUM,TL, 82, LEAD, PB, 83, BISMUTH, BI 

660 DAT A84 , POLON I UM , PO , 85 , ASTAT I NE , AT , 86 , RADON , RN , 87 , FRANC I UM , FR 

,88, RADIUM, RA, 89, ACTINIUM, AC, 90, THORIUM, TH, 91, PROTOACTINIUM, PA, 92 

, URANIUM, U, 93, NEPTUNIUM, NP, 94, PLUTONIUM, PU, 95, AMERICIUM, AM, 96, CUR 

IUM, CM, 97, BERKELIUM,BK, 98, CALIFORNIUM, CF 

670 DATA99, EINSTEINIUM, ES, 100, FERNIUM, FM, 101 , MENDELEVIUM, MV, 102, 

NOBEL I UM , NO , 1 03 , L AWRENC I UM , LW 



FEATURES - 



TEXT TYPER L2/16K by M.J. Leonard ***** 



* Standard keyboard gives lower-case with visual indication of shifted 
upper-case. 

* Line justification or non-justifi cation with non-justifying space 
provision. 

* Indentation setting, readily changeable. 

* Line change, line delete. 

* Word change, word delete. 

* Lines insert, word insert. 
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* Centering of text. 

* Review text, 

* Line counter. 

* Record to tape. 

* Load from tape. 

* 'Packed' data displayed on reading and recording tape. 

* Print draft document with line numbers. 

* Print finished text. 

* Prints on A4 sheet or roll paper. 

This program was developed on a System 80. TRS-80 users should use the arrow keys as shown 
below: 

'ESC = t 

'CTRL' = I 

'TAB' - -> 

•BACKSPACE' = <*- 

This program processes text line by line with a maximum input at one time of 90 lines. 

Each line consists of 62 characters - indicated by a staff on the screen. Upon RUNning the 
program, selection of an indentation position is made and indicated on staff. After selection 
of 'justification' or 'non-justification' entry can proceed. 

If right-hand justification is selected, any line of characters finishing within 7 spaces of 
the end of the staff, will be justified. Upon ENTERing the line a string of "J"s will indicate 
the extra spaces being inserted to bring about justification. If the relationship between two 
or more words is to be maintained then CTRL must be used instead of the SPACE-BAR when inserting 
a space between these words. {Even with a line of 62 characters there are 3 spaces of justi- 
fication - this is important for later word correction). 

If change of indentation is required (for sub-paragraphing or tabulation) call up MENU and enter 
'Indent' for 'Choice'. This also allows change to and from line justification. 

To centre text for headlines etc., type material at beginning of staff and press ESC instead 
of ENTER. This will centre text and advance to next line input. 

To call up MENU 'Shift' and 'ESC keys are depressed. This then allows selection of the following:- 

1. PRINT DRAFT DOCUMENT 

Line 1920 in the program has been written for an Okidata 'Microline 80* printer and selects 
16.5 characters/inch, 105 characters to a line and 4 lines per inch. This spacing plus 
the printing of the line numbers allows easy corrections and additions to be made. Forty 
lines are printed on A4 paper before printing stops and a prompt is given to insert more 
paper. 

2. PRINT COMPLETED TEXT 

Again line 2010 sets the 'Microline 80' for 10 characters/inch, 64 characters to a line 
and 6 lines per inch. This gives clean clear final copy. When printing in this style prompt 
for new paper comes after 59 lines. (Text will be lost if all pages are not printed - for 
other printers, both these program lines will need changing). 

3. RECORD TO TAPE 

4. LOAD FROM TAPE 

Upon selecting these facilities, data is packed into groups of three lines, commas and colons 
changed to graphi c characters so as not to change f ormatti ng , and recordi ng and 1 oadi ng 
shown on the screen. (Two dumps are recommended to allow for tape faults). 

5. REVIEW DATA 

Line by line review is carried out by pressing ENTER for each line: pressing any other key 
will return the MENU. 

6. CHANGE DATA 

A request for the line to be altered is given. Upon entry of this number the selection 
of whole line or individual word change is made. Selecting Word Change gives the selected 
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line again, which is disassembled and repeated. The following keys allow corrections and 
insertions. (If any change causes the line to exceed 64 characters, the line is printed 
ending in a ' + ' sign, indicating lost words. These words must be added on an inserted line): 

TAB - presents each word for inspection. 
BACK SPACE - removes the previous word from screen. 
CTRL - deletes the last word displayed. 
ESC - presents a small block character and allows insertion 
of a new word . Duri ng word i nserti on ' Shi f t-@ ' wi 1 1 
insert a space. 
SPACE BAR - fixes the new word into the line and allows further 
word inspection. 
'@' - allows escape from the line being changed, rejustifi cation 
taking place if necessary. 

7. ADD TO DOCUMENT 

This presents the last three lines of the previously entered text and allows further line 
entry. 

8. INSERT NEW LINE 

The prompt asks for the line number to be inserted. This will be the line number after 
the desired insert. If correct placement is shown, type in new line and program returns 
to MENU. 

9. DELETE A LINE 

The selected line is displayed and is deleted by pressing ENTER. Line numbering is moved 
up one for all lines higher than the deletion, therefore when more than one deletion is 
required, the highest number should be removed first. 

The program is error-trapped to return to MENU. If the program is lost, however, GOTO 1700 
will usually allow recovery. 

100 CLS:PRINTTAB(25)CHR*(34) ; "TEXT-TYPER" ; CHR* (34) : PRINTTAB (25) S 

TRING*(12,42) : PRINTTAB (37) ; "WRITTEN BY M.J. LEONARD. ": PRINT 

110 PRINT: PRINT"SELECT INDENTATION AND LINE JUSTIFICATION" : PRINT 

: PR I NT "ENTER: I TO CONTINUE" : PRINT 

120 Z*=INKEY*:IF Z*="" THEN GOTO 120 

130 CLEAR 5000: DIM A* (90) , T* (20) , B* (90) 

140 ON ERROR GOTO 1470 

150 REM INDENTATION POSITION 

160 TB7.=0 

170 PR I NT "ENTER INDENTATION" ; TAB (25) ; 

180 X*=INKEY*:IF X*="" THEN GOTO 180 

190 X7.=ASC(X*) 

200 IF X7-=13 THEN PRINT: GOTO 250 

210 X1*=X1*+X*:PRINT X*; 

220 IF VAL(X1*)<0 OR VAL(X1*)>62 THEN PRINT CHR* (29) ; CHR* (30) ; : X 

l*= ,,n :GOTO 170 

230 IF LEN(Xi*)>2 THEN PRINT CHR* (29) ; CHR* (30) ; : XI*-" " : GOTO 170 

240 GOTO 180 

250 IF LEN(X1*)=0 THEN GOTO 270 

260 TB7.=VAL(X1*) :X1*="" 

270 PRINT: PRINT"ENTER: J FOR JUSTIFICATION" 

280 PRINT"ENTER: N FOR NON-JUSTIFICATION" 

290 PRINT"ENTER: A TO ABORT" : PRINT: PRINT"ENTER: " 

300 M*=INKEY$: IF M*="" THEN GOTO 300 

310 G7-=ASC(M*) 

320 IF G7.=74 THEN QX7.=0 ELSE IF G7.=78 THEN QX7.= 1 ELSE IF G7.=65 T 

HEN RUN ELSE G0T0300 

330 IF F7.= I THEN GOTO 1700 ELSE IF F7-=2 THEN GOTO 2330 

340 CLS 

350 N7.=0 :PRINTCHR*(128)+CHR*(13) : GOTO 520 

360 A$=INKEY*:IF A*="" THEN GOTO 360 

370 A7.=ASC(A*> 

380 IFA7.>32ANDA7,<65G0T0550 

390 IFA7.>64ANDA7.<91 A7.=A7-+32: G0T0500 

400 I FA7. >9 1 A7.= A7.-32 : U7.=PEEK ( 1 64 1 6 ) : Q7.=PEEK (16417): GOTO 430 

410 IF A7.=27 THEN 1700 

420 IF A7.=32 THEN SP7.=SP7.+ 1: GOTO 550 

430 IF A7.= 10 THEN A*=CHR* ( 128) : GOTO 550 

440 IF A7.=91 THEN GOSUB 1220: GOTO 510 

450 IF A7-=8 THEN GOSUB 1660: GOTO 360 
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460 IF A7.=9 THEN GOSUB 1550: GOTO 360 

470 IF A7.= 13 THEN 510 

430 IF Q%=60 THEN Q7.=0 ELSE IF Q7.=61 THEN Q7.=256 ELSE IF Q%=62 T 

HEN Q7.^512 ELSE IF Q7.=63 THEN Q7.=768 

490 POKE 15360+Q7.+U7.+64, 183 : UX=0 : Q7.=0 

500 A*=CHR*(A%) : GOTO 550 

510 GOSUB 1240 

520 N7.=N7.+ 1:L*="": GOSUB 1610 : GOSUB 1490 

530 IFN7.>90THENCLS:PRINT"END OF TEXT INPUT - 90 LINES HAVE BEEN 

ENTERED" : FORT7.= lT01000; NEXTT7.: G0T01700 

540 IF XX7.=2 AND A7.= 13 THEN GOTO 2970 ELSE 

IF XX7.= I AND A7.= 13 THEN GOTO 2650 ELSE IF XX7.= 1 AND A7.=91THEN 

GOTO 2650 
550 IF LEN(L*><=61 THEN PRINT A*; CHR* (95) ; CHR* (24) ; 
560 IF LEN (L*) =62 GOTO 360 
570 L*=L*+A* 
5S0 V7.=0: GOTO 360 
590 REM WORD CHANGE 
600 J7,= i:A7,=0 
610 N7.=CH%: GOSUB 1490 
620 FOR L7.= l TO LEN (A* (CH7.) ) 
630 J*=MID*<A*<CH7.) ,L7.,1> 

640 IF J*<>" " THEN T*<J7-)=T*(J7.) +J*s KX=0 
650 IF J*=" " THEN K7.=K7.+ 1 
660 IF K7->1 THEN GOTO 680 
670 IF K7.= I THEN PRINT"J " ; : J7,=J7.+ 1 
6S0 NEXT L7- 

690 PR I NTCHR* < 29 > ; CHR* ( 30 > ; 
700 FOR L7.= l TO J 7. 

710 IF T*<L7.+ 1)="" THEN PRINT T*(L7.); ELSE PRINTT* (L7.) ; " " ; 
720 NEXT L7-: PRINT 
730 Q7.=J7. 

740 Z*=INKEY*:IF Z*="" THEN GOTO 740 
750 A7.=ASC(Z*) 

760 IF DD%=Q7-+1 AND T* (Q7.+ 1 ) ="" THEN L*=LEFT* <L*„ LEN (L*) -1 ) : FOR 
I7.=0 TO 20s T*<IZ>=" M : NEXT 17.: SP7.=DB7.-2: DD7.=0: PRINT CHR* (29) ; CHR* ( 
30);: GOSUB 1240 :GOTO 2650 

770 IF A7.=9 THEN DD7.=DD7.+ 1 : L*=" " : GOTO 820 
730 IF A7-=S THEN DD7-=DD7--1 : L*=" " : GOTO 870 
790 IF A7.=91 THEN A7,=0: Z*="" :PRINT CHR* < 176) ;: GOTO 910 
800 IF A7.= I0 AND DD7-=0 THEN GOTO 740 ELSE IF A7.= 10 THEN GOTO 113 


81 IF A7.=64 THEN GOTO 1200 ELSE 740 
820 PRINT CHR*(29);CHR*(30);:L*= ,,M 
830 FOR IX=1 TO DD7- 

340 IF I7-ODD7. THEN L*=L*+T* ( 17.) +" " : GOTO 860 
850 IF I7.=DD7. THEN L*=L*+T* ( 17.) 
360 NEXT I7-: PRINT L*;:GOTO 740 
870 IF DD7.<=0 THEN DD7-=0: PRINT CHR* (29) ; CHR* (30) ; : 

L*=" "-GOTO 740 ELSE PRINT CHR* (29) ; CHR* (30) ; : L*=" " 
380 FOR I7-=l TO DD7 
890 L*=L*+T*(I7.}+" " 
900 NEXT I7.:PRINT L*;:GOTO 740 
910 Z*=INKEY*:IF Z*="" THEN GOTO 910 
920 A7.=ASC(Z*> 

930 IF A7.=B AND LEN(TT*)>0 THEN PRINT CHR* (8) ; : TT*=LEFT* <TT*, LEN 
(TT*)-1> :GOTO 910 ELSE IF A7-=8 AND LEN(TT*)=0 THEN GOTO 910 
940 IF A7-=96 THEN A 7-= 128: GOTO 1120 
950 IF A7-<32 GOTO 910 

960 IF A7.=32 THEN DD7.=DD7.+ 1 : Q7.=Q7.+ 1 : GOTO 980 
970 GOTO 1090 

980 FOR I7-=Q7. TO DD7. STEP-1 
990 T*(I7.)=T*(I7.-1 ) 
lOOO NEXT I7.:T*<DD7.)=TT*:L*= ,,n 
1010 FOR I7.= l TO Q7. 

1020 IF I7-OQ7. THEN L*=L*+T* ( 17.) + " " : GOTO 1040 
1030 L*=L*+T*(I7-> 
1040 NEXT I7,:TT*="" 
1050 PRINT CHR* (29) ; CHR* (30) ; 
1060 FOR I7.= l TO DD7. 
1070 PRINTT* (17-)+" "5 
1030 NEXT 17; GOTO 740 
1090 IF A7.<65 THEN A7.=A7-:G0T0 1120 
HOC IF A7.<91 THEN A7 3 =A7.+32: GOTO 1120 
1110 IF A7.<128 THEN A7-=A7.-32 

1120 Z*=CHR*<A7.) : PRINT Z$; s TT*=TT*+Z*: GOTO 910 
1130 FOR I7.=DD7. TO 07. 
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1750 FRINTTAB< 12) "ENTER: 5 TO 

$ (34, 45) 

1760 PRXNTTAB(12) "ENTER: 

$(34,45) 

1770 PR I NTTAB? 12) "ENTER: 

) STRING* (34,45) 

1 7S0 PR I NTT AB < 1 2 ) " ENTER : 

1790 PRINTTAB< 12) "ENTER: 

1800 PRINTTAB<I2> STRING* (34, 4 

INPUT Y* 



6 



S 
9 



TO 
TO 

TO 
TO 



REVIEW DATA" s PR I NTT AB < 12) STRING 

CHANGE DATA" :PRI NTT AB<12> STRING 

ADD TO THE DOCUMENT" s PR I NTTAB < 12 

INSERT NEW LINE" 

DELETE A LINE" 



1310 
1 P.T'O 

1S40 
1 850 
1860 



1910 



i) s PR I NTTAB < 12) "ENTER: CHOICE 
PRINT: GOTO 150 



IF Y*=" INDENT" THEN F7.= l: CLS: 
IF LEN<Y*)>I THEN GOTO 1700 

YX=VAL<Y*>: IF YX<1 OR YX>9 THHEN GOTO 17G0 
ON Y X GOTO 1850,19 60 ,2050,2280,2710,2510, 20 30 ,2820, 30 20 
CLS: 7*="": PR I NT "MAKE PRINTER READY " 
PRINT:FRINT"ELSE ENTER: 'A* TO ABORT ";: INPUT 7* 
IF Z*<>"" THEN GOTO 1700 
LPRINT" INDENTATION = ";TB7.; 
IF QXX=0 THEN LPRINT" JUSTIFY" ELSE LPRINT 

NON-JUST I FY" 
LPRINT" " 
FOR IX=I TO NX 
LPR I NTCHR* ( 29 > : CHR* ( 27 > ; CHR* ( 56 ) = CHR* < 27 ) ^ CHR* < 66 ) ; IX; TAB < ^ 



-PR] 



NT' 

no 



THEN GOSUB 2490 



GOSUB 1610: GOSUB 1 490 : GOTO 360 

READY " 

TO ABORT ";: INPUT Z* 



IF A*(IX)=" "THEN LPRINT 

IF I%-40 OR 1 7,-81 

NE X T 1 X : GOTO 1 700 

A*=" " - x AX=0: L*=" " : CLS: NX=N%+1 

:LS: Z*=" " : PR I NT "MAKE PRINTER 

PR I NT SPRINT "ELSE ENTER: ? A ? 

IF Z*<>"» THEN GOTO 1700 

FOR I7.= l TO NX 

IF IX=59 THEN GOSUB 2490 

LPR I NTCHR* ( 27 > ; CHR* < 66 ) ; CHR* < 27 ) ; CHR* ( 54 ) ; CHR* < 30 ) ; A* ( I X > : 
IF A*(IX)=" " THEN LPRINT " " 
2020 NEXT IX: GOTO 1700 
2030 CLSsL*= H,, :V?C=3: IF VX>=NX THEN VX=1 

ELSE VX=NX-3 
2040 CLS:FOR IX=VX TO NX: PRINTA* < IX) : NEXT 
90: 



5) : A* (IX) 

1 930 

1940 

1 950 

1 960 

1970 

1980 

1990 

2000 

2010 



IX: GOSUB 1610: GOSUB 14 



GOTO 360 
2050 REM RECORD DATA 
2060 CLS 

2070 FOR IX=I TO 90 

2080 IF A*<IX>=" " THEN GOTO 2090 ELSE NX- IX 
2090 NEXT IX;PRINT"THFRE ARE ":NX: M LINES" : PRINT 
2100 Z*=" " = PRINT"MAKE TAPE RECORDER READY FOR RECORDING " 
2110 PRINT: PR INT" ELSE ENTER: ? A ? TO ABORT ";: INPUT 2* 
2120 IF 7*<>" " THEN GOTO 1700 

2 1 30 CLS : PR I NTTAB (15) ; " THE TAPE RECORDER I S RUNN ING " : PR INT : PR I NT 
"IT WILL PAUSE, HOWEVER, WHILE IT CONVERTS COMMAS AND COLONS 
TO GRAPHIC CHARACTERS" 
2140 PRINT # - 1 , NX 
2150 FOR IX-1 TO NX 
2 1 60 FOR J 7.= 1 TO LEN ( A* ( I X ) > 
2170 K*=MID*(A*(IX) , JX, 1) 

2 1 SO I F K*= " , " THEN KK*=KK*+CHR* < 1 68 > : GOTO 22 1 
2 1 90 IF K*= " : " THEN KK*=KK*+CHR* ( 1 62 ) : GOTO 22 1 
220 K K* =K K * +K * 

2210 NEXT J X : A* ( I X ) =KK * : KK * ~ " " 
2220 NEXT IX 



22 30 
2240 
2250 
2260 
128) 
2270 
2280 
2290 



FOR I7.= 1T0 NX STEP 3 

PRINT#-I,A*<IX) ,A*(IX+1> , A*(IX+2> 

PR INT A* < IX) : PRINTA* ( I7-+1 ) : PRINTA* < IX+2) 

IF A*(IX)="" OR A*(IX+1)="" OR A*(I7-+2) = 



NEXT IX:G0T02400 

REM READ DATA 

CLS: Z*="": PRINT TAB (25) : "LOAD FROM TAPE 
APE RECORDER READY FOR PLAYING" 
2300 PR I NT: PR I NT "ELSE ENTER: 'A' TO ABORT 

IF Z*0"" THEN GOTO 1700 
20 PRINT: F7.=2 s GOTO 150 
2330 CLS:PRINTTAB<15) ; "THE TAPE 
2340 PRINT 

2350 INPUT #-1, NX: PR I NT "THERE 
2360 FOR IX=1 TO NX STEP 3 
2370 INPUT #-1, A* (IX) ,A*(I7.+ 1) , A* (IX+2) 



= "" THEN PRINT CHR* ( 

: PRINT: PRINT "MAKE T 
;: INPUT Z* 



2310 



RECORDER IS RUNNING" 
ARE ";N7.;" LINES" : PRINT 
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2380 PRINTA*(I7.) : PRINTA* < I7.+ 1 > : PRINTA* ( I7.+2) 
2390 NEXT IX 

2400 CLS: PR I NT "THE PROGRAM IS NOW REPLACING THE GRAPHIC CHARACTE 
RS WITH COMMAS AND COLONS." 

2410 FOR 17- =1 TO N7. 
2420 FOR J7.= l TO LEN<A*(I7.)> 
2430 K*=MID*(A*(I7.) , J7., 1) 

2440 IF K*= CHR*<168> THEN KK*=KK*+" , " : GOTO 2470 
2450 IF K*= CHR*<162> THEN KK*=KK*+" : " : GOTO 2470 
2460 KK*=KK*+K* 

2470 NEXT J7-: A* < 17.) =KK*: KK*=" " 
2480 NEXT 17.: GOTO 1700 

2490 CLS: PR I NT "PAGE FULL, INSERT ANOTHER SHEET IN PRINTER" : PRINT 
:PRINTTROFFENTER 'CONT' TO PRINT BALANCE OF TEXT" : PRINT: STOP 
2500 RETURN 
2510 REM CHANGE DATA 
2520 L*=" " : FF7.=N7.+ I : F*=STR* (N7.+ 1 > 
2530 CLS:Z*="" 

2540 PRINTCHR*<29> ;CHR*<30 ) ; " ENTER LINE TO BE CHANGED ";: INPUT C 
H7. 

2550 IF N7.=0 THEN GOTO 1700 
2560 PRINT:PRINTA*(CH7.) 

2570 IF CH7.<1 OR CH%>N% THEN GOTO 2540 
2580 PRINT: PR I NT "ENTER: L FOR LINE CHANGE": 
PR I NT "ENTER: W FOR WORD CHANGE": 
PRINT"ENTER: A TO ABORT" : PRINT 
2590 M*=INKEY*:IF M*="" GOTO 2590 
2600 G7.=ASC(M*) 

2610 IF G7.=87 THEN WD7.= 1 ELSE IF G7.=76 THEN WD%=0 ELSE GOTO 17O0 
2620 PRINTA*(CH7.>: PRINT: XX7.= 1 
2630 IF WD7.= 1 THEN GOTO 590 

2640 N7.=CH7. :GOSUB 1610:G0SUB 1490:G0T0 360 

2650 PR I NT: PR I NT "FOR ANOTHER CHANGE *C* ELSE 'ENTER'"; 
2660 Z1*=INKEY*: IF Zl*="" THEN GOTO 2660 
2670 Z7.=ASC(Z1*) 

2680 IF Z7.= 13 THEN XX7.=0:N7.=FF7.-1 : GOTO 1700 
2690 IF Z7.=67 THEN N7.=FF7.: GOTO 2530 
2700 IF Z7.013 OR Z7.067 THEN GOTO 2650 
2710 REM REVIEW DATA 

2720 CLS:PRINTTAB(20) ; "REVIEW DATA": PRINT 
2730 PR I NT "ENTER "A* TO ABORT ELSE 'ENTER' " 
2740 Z*=INKEY*:IF Z*="" THEN GOTO 2740 
2750 Z7.=ASC(Z*):IF Z7.013 THEN GOTO 1700 
2760 FOR Q7.= l TO N7. 
2770 PR I NT A* (Q7.) 
2780 N7.=Q7.:G0SUB 1490 

2790 Z*=INKEY*;IF Z*= ,,M THEN GOTO 2790 
2800 Z7.=ASC<Z*> : IF Z7.013 THEN GOTO 1700 
2810 NEXT Q7.:G0T0 1700 
2820 REM INSERT LINES 

2830 CLS: Z*="": PRINT TAB ( 25) ; " INSERT LINE": PRINT 
2840 CLS: PR I NT "ENTER STARTING NUMBER OF INSERT ";: INPUT E7. 
2850 PR I NT A* < E7-- 1 > : PR I NT " I NSERT " : PR I NT A* ( E7. ) : PR I NT 
2860 PRINT" INSERT LINE ELSE 'A' TO ABORT ";: INPUT Z* 
2870 IF Z*<>"" THEN GOTO 1700 
2880 IF E7.<1 OR E%>N7. THEN GOTO 2840 
2890 R7.=0 

2900 FOR I7.=E7. TO N7,: R7.=R7.+ 1 
2910 B* (R7.) =A* < 17.) : A* ( 17.) = " " 
2920 NEXT 17. 
2930 L*="":XX7.=2 

2940 PR I NT: PR I NT "ENTER LINE TO BE ADDED ";: PRINT: PRINT 
2950 N7.=E7. 

2960 GOSUB 1610:G0SUB 1490:G0T0 360 
2970 FOR I7.= (E7.+ 1> TO < R7.+E7. > : K7.=K7.+ 1 
2980 A*<I7.)=B*<K7.) :B*<K7.)="" 
2990 NEXT 17. 
3000 N7.=R7.+E7. 

3010 R7.=0:K7.=0:XX7.=0:G0T0 1700 
3020 REM DELETE LINE 

3030 CLS : Z *= " " : Y7.=0 : X 7.=0 : PR I NTT AB < 25 > ; " DELETE L I NE " : PR I NT 
3040 PR I NT "ENTER LINE NUMBER TO BE DELETED ";: INPUT Y7.: 

PRINTsPRINT A*(Y7.):PRINT 
3050 Z*="": PR I NT "DELETE LINE ELSE 'A 31 TO ABORT ";: INPUT Z* 
3060 IF Z*<> ,,M THEN GOTO 1700 
3070 IF N7.=0 THEN GOTO 1700 
3080 IF Y7.<1 OR Y7.>N7. THEN GOTO 3030 
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3090 FOR I7.= l TO N7.+ 1 

3100 IF Y7.= I7. THEN X7.= l 

3110 IF X7-=l THEN A* < I7-> =A* < I7.+ 1 ) 

3120 NEXT I7.:N7.^N7.-l:GOTO 1700 

3130 END 



THE TOWERS OF HANOI 



by M. Byrne 



The 'Towers of Hanoi' is played with a number of discs of differing sizes and three pegs on 
which the discs may be stacked. Initially the discs are arranged on one peg in order of decreasing 
size. The object is to transfer them (in the least number of moves) to another of the pegs so 
they are once again arranged in order of decreasing size. However, you may only move one disc 
at a time and it must not be placed on a smaller disc. 

This program allows you to select the number of discs (up to a maximum of 10) and whether you 
or the computer will solve the problem. 

The main variables used are: 

N(3) holds the number of discs on each peg. 

P10, P2(), P3() are peg arrays. Each element holds the size of the disc at that position. 

SK() 

sc 

DN 

AL 

NM 

SP 

B 

CT 

S 

F 

T 

Tl, T2 

M 

TD 



the parameter stack. 

the source peg. 

the destination peg. 

the alternate peg. 

the move counter. 

the stack pointer. 

the base pointer for the stack elements of the previously invoked procedure. 

the number of discs. 

the amount of delay (for automatic operation). 

the peg the disc is moved from. 

the peg the disc is moved to. 

used to test whether the move is legal. 

is the minimum number of moves. 

the top disk of the peg we are moving from. 



Probably the feature which will cause most confusion is the use of recursion. It appears to 
be a not-too-well-known fact that BASIC will allow recursion (on most machines anyway). Recursion 
is a means whereby a procedure or subroutine may call itself. This involves the use of a stack 
(which BASIC provides) for storing the return address and another stack (which must be set up 
explicitly) if parameters are to be passed to the called procedure. 

The parameter stack is only really used when automatic operation is required as manual operation 
merely involves asking for moves and checking their validity. The program is organised as follows: 

initial isation 

obtain the number of discs and determine the mode of operation. 

contain the automatic operation logic sets up the stack pointers and initialises 

the stack. 

are the manual operation logic which asks for moves and checks their validity. 

draw the discs initially. 

are responsible for shifting the discs. The delay routine is Line 505. 

is the main recursive procedure which is only executed in automatic operation. 

It decides what the new source and destination pegs should be, places these 

parameters on the stack SK() and calls itself. 

draws the pegs. 

is the graphics routine for erasing the disc on the old peg and redrawing 

it on the new peg. 

print the start up message. 

contain the instructions. 



Lines 7-40 

Lines 50-110 

Lines 120-190 

Lines 200-400 

Lines 460-490 

Lines 500-700 

Lines 1000-1410 



Lines 1500-1660 
Lines 1700-1780 

Lines 2000-2070 
Lines 2500-2980 



The current top-of-stack is indicated by SP. When used by the main procedure (Lines 1000-) , 
the top stack element holds the number of the alternate peg for this move, top of stack - 1 
holds the number of the destrination peg for this move, top of stack - 2 holds the number of 
the source peg for this move while top of stack - 3 indicates the number of discs still to be 
moved . 

When used by the shift procedures (Lines 500-), the top of stack contains the number of the 
destination peg and top of stack - 1 contains the number of the source peg. 

Because the parameter stack must be explicitly set up and manipulated in BASIC, the algorithm 
tends to become somewhat obscured. Also if it is the first time you have encountered recursion, 
BASIC is not the ideal language to learn about it. For those of you who are interested in finding 
out more , the tree-di agram for the al gor i thm used in this program i s gi ven i n the book ' An 
Introduction to Problem Solving Using Pascal' by Kenneth Bowles. 
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40 CLEAR 93 

50 CLS:GOSUB 1430s 60SUB 1510:MAX=10 

60 DIM N(3) ,P1 (MAX) ,P2(MAX) ,P3(MAX) ,5K<10*MAX> 

70 SC=I : AL=2: DN=3: CT=0: PI <0) =99: P2 <0) =99: P3 <0> =99 

80 NM=0: J=0: 1=0: SP=0: B=0: CLS 

90 INPUT" HOW MANY DISCS WOULD YOU LIKE";CT 

100 IF CT>MAX PR I NT "THAT WILL TAKE SOME TIME AND FIRST YOU WILL 

HAVE TO CHANGE LINE 50":END 

110 IF CT<=0 PR I NT "SORRY, THAT'S NOT POSSIBLE" : SOTO 90 

120 IF CT<=3 PR I NT" YOU HAVE NO SENSE OF ADVENTURE - BUT I SUPPOS 

E 

YOU HAVE TO START SOMEWHERE" 

130 N<1)=CT:N(2)=0:N<3)=0 

140 IF AN*="YES" OR AN*="NO" THEN PR I NT "TYPE ? A* IF YOU WANT ME 

TO DO ALL THE WORK (I.E. AUTOMATIC 

OPERATION) OTHERWISE TYPE *M* FOR MANUAL OPERATION" : PRINT" WHICH 

WOULD YOU LIKE " ; 
150 INPUT "AUTOMATIC OR MANUAL <A OR M)";MODE* 
160 IF MODE*<>"A" GOTO 280 

170 INPUT "HOW FAST (O IS FASTEST, 10 IS SLOWEST) ";S 
180 CLS: GOSUB 1160 
190 G0SUB540:SP=4 

200 SK(SP-3)=CT:SK(SP-2)=SC:SKK(SP-1)=DN:SK(SP)=AL 
210 B=SP:SP=SP+4 

220 SK<SP-3)=SK<B-3> :SK <SP-2)=SK (B-2) : SK CSP-1 ) =SK <B-1 ) :SKCSF>=SK 
(B) 

230 IF CTOl THEN GOTO 260 

240 5P=SP+2:SK(SP-l)=l:SK(SP?=3:GOSUB 590 
250 G0T0270 
260 GOSUB 820 
270 PRINT3832, ""; :GOTG510 
280 CLS: GOSUB 1160:S=0 
290 GOSUB 540 

300 PRINT3832, " " ; 

310 PRINT3332, "FROM PEG";: INPUT F 
320 PRINT3860, "TO PEG";: INPUT T 

330 IF F<1 OR T<1 OR F>3 OR T>3 PRINT"NO SUCH PEG": GOTO 300 
340 IF F=T PR I NT "NOT ALLOWED" : GOTO 300 

350 IF N(FX=OPRINT" THERE ARE NO DISCS ON PEG ";F:G0T0300 
360 I=N(F) : J=N(T) 
370 ON F GOTO 380,410,430 
380 T1=P1 (I) 

390 IF T=2 THEN T2=P2 ( J ) : ELSE T2=P3<J) 
400 GOTO 440 

410 T1=P2CI):IF T=l THEN T2=P1 < J ) : ELSE T2=P3<J) 
420 GOTO 440 

430 T1=P3(I):IF T=2 THEN T2=P2 ( J ) : ELSE T2=P1(J) 
440 IF TI>T2 PR I NT "NOT ALLOWED" : GCT0300 
450 SP=SP+2 : SK < SP- 1 ) =F : SK < SP ) =T 
460 GOSUB 590 

470 IF N(1)=0 AND N<2>=0 AND N(3)=CT THEN GOTO 4SO:ELSE GOTO 300 
480 M=2CCT~i:PRINT3832, " 

":PRINT3832, " " ; 
490 IF NM=M THENPR I NT "CONGRATULATIONS! YOU DID IT" ELSE IF NM-M< 
=M*0.15 THENPRINT"NOT BAD AT ALL" 

500 PR I NT "YOU TRANSFERRED ALL THE DISCS IN " ;NM;" MOVES 
510 PR I NT "CARE FOR ANOTHER GAME (YES OR NO)"; 
520 INPUT AN* 

530 IF AN*="N" OR AN*="NO"THEN CLS: END ELSE G0T080 
540 J=CT 

550 FOR 1=1 TO CT 
560 Pi <I)=J: J=J-1:NEXT I 
570 RETURN 
580 '============= SHIFT DISCS 

590 NM=NM+1:SE=SK(SP-1) :DE=SK(SP) 

600 FOR 1=1 TO 30*S:NEXT I 

610 I=N(SE) :Y=33-(I*2) 

620 IF SEOl THEN 640 

630 TD=P1 (I) :X=20:G0T0 670 

640 IF SE<>2 THEN 660 

650 TD=P2(I> :X=52:G0T0 670 

660 TD=P3(I) :X=S4 

670 P=2:SIZE=TD 

680 GOSUB 1340 

690 I=N(DE)+1:Y=33-(I*2) 

700 IF DEOl THEN 720 

710 PKI)=TDsX=20s60T0 750 
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720 IF DE<>2 THEN 740 

730 P2<I}=TD;X=52:SQT0 750 

740 P3(I)=TD:X=84 

750 P=l 

760 60SUB 1340 

770 N(SE)=IM(SE)~i 

7S0 N(DE}=N<DE>+i 

790 SP-SP-2 

SOO PR I NT323 , M MOVE " ; NM 

S10 RETURN 

320 *—== = =:=====« HANOI (RECURSIVE PROCEDURE) 

S30 IF SK(SP-3>>2 THEN GOTO 840 ELSE GOTO 1010 

340 B=SP:SP=SP+4 

850 SK ( SP-3 ) =SK < B-3 > - 1 

860 SK < SP-2 ) =SK ( B-2 ) 

370 SK ( SP- 1 > =SK ( B ) 

830 SK ( SP ? =SK < B- 1 ) 

390 GOSUB S20 

9 1 O SK ( SP- 1 ) =SK ( B-2 ) 

OOj"j CI; / Cp ) — C;l/ ( g_ -f \ 

930 GOSUB 590 

940 B=SP:SP=SP+4 

950 SK ( SP-3 ) =SK ( B-3 ) - 1 

960 SK < SP-2 > =SK < B > 

970 SK(SP-1)=SK<B-1> 

930 SK<SP)=SK<B-2> 

990 GOSUB 820 

1000 GOTO H30 

1 O 1 B=SP : SP=SP+2 

1020 SK(SP~1)=SK<B~2) 

1030 SK(SP)=SK(B) 

1040 GOSUB 590 

B=SPsSP=SP+2 

3K(SP-l)=SK(B-2) 
1070 SK(SP5=SK<B-1) 
1030 SOSUB 590 

E=SPzSP=SP+2 

SK<SP-1 )=SK<3) 

SK (SP) =SK (B-l) 

flHRI !R 590 
1130 SP=SP-4 
1140 RETURN 

1 1 SO " = - - -• - - = ■' - - ■ - - - DR AWPEGS 
1160 CLS; 7 PROC DRAWFESS 



1050 

1060 



1090 

1100 
1110 
1120 



56 , ,J " 



44: 



1170 PRINTS 

1130 FOR 1= 

1190 PRINT" 

;A* 

1200 NEXT I 

1210 PRINT" 

1220 FOR 1= 

1230 PRINT: PRINT" 

1240 Y=31sX=20 

FOR i=CT TO i ST 
FOR J=l TO I 
SET ( X 
SET <X 
NEXT J 
Y=Y-2 
I 



A*=CHR*(191) 



; A*'; " 



TNT A$; 5 NEXT I 
1 



! ;ft$; 



1 260 
1270 
1 230 
1290 
1 300 
1310 NE> 



:, Y) 



1320 RETURN 

1330 '======•= SWITCH RRnr.FnuRE 

1340 IF F-2 THEN 1390 

1350 FOR J=l TO SIZE 

1360 SET ( X-.J, Y) : SET < X+J+2, Y) 

1370 NEXT J 

1330 GOTO 1420 

1390 FOR .7=1 TO SIZE 

1400 RESET < X- J , Y) = RESET < X+J+2, Y> 

1410 NEXT J 

1420 RETURN 

1430 D*=STRING*<63, ,i *"> 

1440 PRINT3256,B* 

1450 PRINT D*: PRINT 

1460 PRINT3463, "T HE T ui E R S" 

1470 PRINT3542, ,, F HAND r^PHTNl 
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1480 PRINT D* 

1490 PRINT D* 

1500 RETURN 

1510 F0RI=1 TO lOOO:NEXT I 

1520 PRINT3896, "DO YQU WANT INSTRUCTIONS (YES OR NO)";: INPUT AN$ 

1530 IF AN3K>"Y" AND AN*<>"YES" THEN RETURN 

1540 CLS 

1550 PR I NT323, "INSTRUCTIONS" 

1560 PRINT3S7, " "--PRINT 

1570 PRINT" THERE ARE THREE PEGS, ON ONE OF THESE IS ARRANGE 

D, 

1580 PRINT"IN ORDER OF DECREASING SIZE, A NUMBER OF DISCS. "sPRIN 

T 

1590 PRINT" THE OBJECT IS TO MOVE ALL THE DISCS FROM THE LEFT 

MOST" 

1600 PRINT"PEG (1) TO THE RIGHTMOST PEG (3), SUBJECT TO THE FOLL 

OWING" 

1610 PR I NT "CONSTRAINTS :-": PRINT 

1620 PRINT" 1, ONLY ONE DISC MAY BE MOVED AT A TIME" 

1630 PRINT" 2, A DISC MAY NOT BE PLACED ON TOP OF A DISC WHIC 

H" 

1640 PRINT" IS SMALLER" 

1650 GOSUB 2000 

1660 PR I NT323, "PLAYING HANOI" 

1670 FRINT3S7, " " i PRINT 

1680 PRINT" THERE ARE TWO MODES OF PLAY. THESE ARE <A>UTOMAT 

IC" 

1690 PR I NT "AND <M>ANUAL AND YOU WILL BE ASKED TO SELECT ONE. " : PR 

INT 

1700 PR I NT "AUTOMATIC OPERATION" 

1710 PRINT" THE COMPUTER WILL ASK YOU HOW MANY DISCS YOU WOUL 

D LIKE" 

1720 PR I NT "MOVED AND HOW FAST YOU WOULD LIKE THEM MOVED. IT WIL 

L" 

1730 PR I NT "THEN PROCEED TO TRANSFER THE DISCS FROM PEG 1 TO PEG 

1740 PR I NT "US ING PEG 2 AS AN INTERMEDIATE." 

1750 GOSUB 2000 

1760 PRINT323, "PLAYING HANOI" 

1770 PRINT3B7, " "s PRINT 

1780 PR I NT "MANUAL OPERATION" 

1790 PRINT" HERE YOU WILL BE ASKED HOW MANY DISCS YOU WOULD L 

IKE" 

1800 PR I NT "TO MOVE- THEN YOU WILL BE PROMPTED TO TYPE THE NUMBE 

R OF" 

1810 PR I NT "THE PEG THE DISC IS TO BE TAKEN OFF AND THE NUMBER OF 

THE" 
1820 PR I NT "PEG THE DISC IS TO BE PLACED ON- WHEN YOU HAVE SUCCE 
SSFULLY" 

1830 PR I NT "TRANSFERRED ALL DISCS YOU WILL BE TOLD HOW MANY MOVES 
ti 

1840 PRINT" IT TOOK." 

1850 G0SUB2000 

I 860 PR I NT323 , " SUGGEST I ON " 

1870 PRINT387, " "sFRINT 

1880 PRINT" IF YOU ARE UNSURE OF THE GAME TRY AUTOMATIC OPERA 

TION" 

1890 PR I NT" WITH ABOUT FOUR DISCS AND LOW SPEED (E.G. 10). THEN 

SIT" 

1900 PR I NT "BACK AND LET THE COMPUTER DO ALL THE WORK - AFTER ALL 

THAT" 
1910 PRINT" IS WHAT IT IS THERE FOR." : PRINT 

1920 PRINT" FOR A GIVEN NUMBER OF DISCS, N, THE SMALLEST NUMB 
ER OF" 

1930 PR I NT "MOVES REQUIRED IS GIVEN BY :-" 
1940 PRINT" M = 2CN-1 

1950 PR I NT "SO FOR 3 DISCS THAT^S 7 MOVES, 4 DISCS 15 MOVES UP TO 
ii 

I960 PRINT"THE MAXIMUM OF 10 DISCS WHICH REQUUIRES 1023 MOVES,": 

PRINT 

1970 PRINT" HAVE FUN!" 

1980 GOSUB 2000 

1990 RETURN 

2000 PRINT5>960,"PRESS <NEWLINE> WHEN READY"; 

2010 INPUT D*sCLS 

2020 RETURN 



ISSUE 24 (NOVEMBER 1981! 



MICRO-80 



PAGE 35 



***** NEXT MONTH'S ISSUE ***** 

Next month ' s i ssue wi 1 1 contai n at 1 east the f ol 1 owi ng programs plus the usual features and 
articles. There will also be an index for the past 12 issues. 



** TRIANGLE SOLUTIONS LI/4K ** 

This Level I program has been designed 
to calculate unknown sides, angles and 
the area of any triangle, useful for anyone 
who needs to calculate areas for concrete 
pours for example. 



** STEEPLECHASE LII/16K ** 

We have had horse races before but never 
one like this - make your horse jump at 
the right time or off you come. Realistic 
graphics include the course, jumps, you 
(the jockey ) , a yery wel 1 -animated horse 
and even an ambulance to take you to hospital. 



** BASIC AND LABELS 32K/DISK ** 

When you are wri ti ng a compl icated program 
wouldn't it make life easier if you could 
type - GOSUB FRED and further on in the 
program is a subroutine called FRED or, 
for that matter, any name that suits you. 
Well, after next month, that's just what 
you will be able to do. 



** CURVILINEAR REGRESSION AND POLYNOMINAL 
REGRESSION LII/4K ** 

These are the 1 ast two programs i n the 
current series of scientific programs. 
Curvilinear regression is used to compute 
the curvilinear relationship between two 
sets of data and Polynominal regression 
uses a mathematical model series which 
becomes increasingly complex with the addition 
of further degrees of Polynomial ity. 

** 3-D MAZE LII/16K ** 

This excellent program displays a maze 
on your screen as viewed from inside. 
You can turn or move by pressing a single 
key. As you move, so the view is changed. 
Each time you move it costs you points. 
The object is to get out of the maze with 
as many points as possible. You can even 
call up a map of the maze that shows your 
current position in relation to the exit, 
but i t costs you a LOT of poi nts to do 
that. Each time you run the program you 
get a different maze. 
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ISSUE 24 (NOVEMBER 1981) 



MICRO-80 
***** CASSETTE EDITION INDEX ***** 



PAGE 36 



The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate start 
positions shown are correct for the very early System 80 without the volume control or level 
meter. They are probably incorrect for later machines. The rates for a cassette subscription 
are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
I programs. Level I disk programs are saved in the NEWDOS format. Users require the Level 
I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them. 



SIDE ONE 

MULTIPLE REGRESSION 
ii 

ATOMIC TABLES 
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DISK FILESPEC 


APPROX. 
CTR-41 


START POSITION 
CTR-80 SYSTEM-80 


LII/4K 
n 


M 


MULTREG/BAS 
ii 


15 
50 


10 
34 


10 
36 


LII/16K 

ii 


A 

it 


ATOMIC/BAS 


85 

128 


57 
86 


60 
90 


LII/16K 

It 


T 
ii 


TEXTYPER/BAS 


170 
237 


114 
160 


120 
168 


LII/16K 


B 


TOWERS/BAS 


300 


202 


212 



SIDE TWO 
TOWERS OF HANOI 
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A SPECIAL OFFER! 



TO 

SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS ' 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS I 




9>4i 



i 1 * CONQUEST ELECTRONICS Pty. Ltd. 
212 Katownba St. KATOOMBA 2780 



Please Supply - 
Qtv. Car hQ DESC^ 



.APV. PfliCE 



SUBTOTAL 
LESS ID* 
FIND CHEQUE FDR TOTAL 



SFND FREIGHT FREE TD 

NAME 

ADD-FiESS ... ,,., _ 



..p/ o»d* . 



CONOlMT ELECTRONICS 



RTi\ LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 27ft0 PHONE (047) 82 2491 



MICRO-80 




LET THE 



MM TRMIMI IOURCC 

BRING MAINFRAME POWER INTO YOUR HOME OR OFFICE 




WE ARE PROUD TO 

ANNOUNCE THE LAUNCHING 

OF AUSTRALIA'S FIRST 

MICROCOMPUTER 
INFORMATION UTILITY 



The AUSTRALIAN SOURCE rS 
Australia's tt/st rntcrocomputaf 
information utility* atmed at giving 
too average microcomputer user 
access to the computet oara banks 
and also massiVa storage space 
previous; ty onry available to large 
Main! farm ins ta ttat ions r The era of 
home Computer^ ha£ now ottictally 
begun in AustraDai now that the 
AUSTRALIAN SOURCE ta ftpre; 
as now, fln^ sma/' ihjs /nesfi man of 
sfutferTi cart havo cfl ft is des* r"o/ 
an extremity smait coSf r a system 
Jftaf piss fJie ^eveJ of storage* power 
ana* access Jo tfafa banftf 'or wftrcft 
on/y a 'ew yea^S a^Q, government 
depart iron Js and /a/pa pvrvafe users 
were paym-g militons or rig J liars, 

J7l§ AUSTRAL WW SOURCE 
can be accessed through a number 
ot 'approved 1 personal computet S t 
and terminals i by use of an 
aocousttc coupler or roarfsm. 



Usff/s Ivji 1 / rocesve a number of 

kene/j'rs which wtii mc-Jutfe: 

INFORMATION SERVICES 

Members wiii have access to a 
number of information sources which 
witt include the latest news, sports 
resutts, f inane \at reports, aotf farm 
information. 

NATIONWIDE ELECTRONIC MAIL 

Members will be abte r also t to 
common icate nationwide with other 
AUSTRALIAN SOURCE members 
through ouf electronic matt system, 



THE AUSTRALIAN SOURCE 
RECOMMENDS 3M DISKETTES 



SOFTWARE BANK 

Users will have access to a myriad 
ot computer programs that wilt include 
enter tamrmntt educational aids, 
programming and diagnostic tOOfS, 
and f inane iai applications, 

MAINFRAME POWER 

Users Will have the capability to 
m$ke use of the Mainframe's huge 
storage capacity by using any of our 
farge programs., or storing your targe 
crogramx on our system, 

SHOP AT HOME 



You can take advantage ot our 
'shopping by computer' system to 
get the bast prices on a number of 
pooolar consumer \tems. 

EXTREMELY EASY TO USE 

You do not have to be a computer 
programmer to make use of the 
AUSTRALIAN SOURCE. Att of the 
\nstructiOns are in evaryOay English, 
so that even the younget members of 
your family wtit be able to operate 
the system, 

LOW COST 

While services hke these used to 
cost tens of thousands of doiiars 
to tne government departments and 
large- corporations who used them r 
thiiy n/e now available to you tor 
Jess than the cost ot a packet of 
cigarettes a day tor the 'average' 
user. 



You can totn the AUSTRALIAN 
SOURCE by paying a one-time 
joining tea f. norma fly $700) and a 
smalt hourly user charge (normally 
$10 an hour B a,m r - 6 p.m. and 
$4.50 an hour ft p.m. — S a*m*h 



SPECIAL 
CHARTER MEMBER OFFER 

A j m tptcitt promo* ion t the ioinirtg 
fet before the 1st Fehtumry, 10*2, ps 
only JKSO and this aito entitle* you to 
20% off Ml i list uset charges in the 
futwe - m areat dr&l for the mQttty, 

TO JOIN THE AUSTRALIAN SOURCE 
FAMILY, AND TAKE ADVANTAGE OF 
THE EXCITING SERVICES WE WILL BE 
OFFERING, PLEASE COMPLETE THE 
COUPON BELOW: 



HEHflENSMIP nsaosiT 
Tut, I Print 1ft* , : d#i at ih* AVITRAU** 
m*4 jw pt blip Miiiil mrf piurp^. 



D- 



fi.mnri. 



_J D IIIJI nt\4 WW .a\Q:iT*\ a< u ■ :■■ :nir 
fqu, pcmflJ pieAlffl t -TIB M*¥ ta tlfcP idVinftge 
at ffl# AirtJ*AUA>t SQVflCE-S hpvIml 
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PxQkE 

Mail le> 

MICRO £0 

P.O. Box 213 

Goodwood 

ScMh AuSlraha 5034 

J ■ if .urmilBri. Jul ■ AHd mtf* litwmtitm*. 



DEALER INQUIRIES INVITED 



